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This publication provides information required for 
using the Disk Programming System (DPS) Input/Output 
Control System (IOCS) for the IBM System/360 Model 20. 
The publication contains the following information: 

1 . General description of the various input and output 
functions provided by the IOCS. 

2. Definition of the record formats processed by the 
IOCS. 

3. Description of the relationship between overlapping 
operations and the specification of different com- 
binations- of I/O areas and work areas. 

U. Introduction to the concepts of file organization 
and file processing. 

5. Detailed descriptions of the IOCS imperative macro 
instructions and the file definition statements. 

The reader of this publication should be familiar 
with basic programming concepts and with the operating 
principles of his system as described in the applicable 
SRL publications. For a list of pertinent publica- 
tions, refer to the I3M System/360 Model 20, Bibliogra- 
phy , Form A26-3565. 
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Sixth Edition (March, 1969) 



This is a major revision of, and obsoletes C24-9007-U. 

Most of the text has been reorganized and rewritten to make the 
publication easier to understand. These improvements are not marked. 

The technical changes incorporated in the publication relate to the 
availability of the IBM System/360 Model 20, Submodel 5. The sections 
headed "Monitor Macro Instructions" and "The ATENT Routine" have been 
added. These technical changes and additions are marked in the 
following way: Changes to the text, and small changes to illustrations 
are indicated by a vertical line to the left of the change; changed or 
added illustrations are denoted by the symbol • to the left of the 
caption; added pages are flagged by the symbol • to the left of the 
page number. 

This edition applies to the following components of IBM System/360 
Model 20 Disk Programming System and to all subsequent versions and 
modifications until otherwise indicated in new editions or Technical 
Newsletters. 

Input/Output and Monitor Macro Definitions version 3 modification 
Printer-Keyboard Macro Definitions version 2 modification 

Changes are continually made to the specifications herein; before 
using this publication in connection with the operation of IBM 
systems, consult the latest IBM System/360 Model 20 SRL Newsletter, 
Form N20-0361, for the editions that are applicable and current. 



This publication was prepared for production using an IBM computer to 
update the text and to control the page and line format. Page 
impressions for photo-offset printing were obtained from an IBM 1403 
Printer using a special print chain. 

Requests for copies of IBM publications should be made to your IBM 
representative or to the IBM branch office serving your locality. 

A form for reader's comments is provided at the back of this 
publication. If the form has been removed, comments may be addressed to 
IBM Laboratories, Programming Publications, 703 Boeblingen/Germany,, 
P.O. Box 210. 

C copyright International Business Machines Corporation 1966, 1967,, 
1968, 1969 ■ 



Contents 



Introduction 5 

Machine Requirements . . , . 6 

Minimum System Configuration. . « . . 6 

Maximum System Configuration. .... 6 

Data Files 8 

Logical Records . . . , 8 

Record Blocking 8 

Record Formats. ............ 8 

Overlapping and Storaae Areas ...... ii 

I/O Areas 11 

Work Areas. 12 

I/O- Work Area Combinations. ...... 12 



File Organization and Processing 

Concepts . 15 

File Organization 15 

File Processing „ . . 17 

IOCS Macro Instructions 18 

Assembly Procedure 18 

File Definition Statements 18 

Format of File Definition 
Statements .....19 

Imperative Macro Instructions. . . » . . 20 

Begin and End Definitions 21 

DIFBG Statement . . , 21 

DTFEN Statement 22 

Instructions for Opening and Closing 

Files 23 

OPEN Macro Instruction 23 

CLOSE Macro Instruction 23 

Reopening Closed Files . » 23 

Initializing Files . . . , 2 4 

Opening Card Files 2U 

Opening Printer and 

Printer-Keyboard Files 24 

Opening Magnetic Tape Files 24 

Opening Disk Files. 26 

Terminating Files. . <, 27 

Closing Card and Printer Files. ... 29 

Closing Printer-Keyboard Files. ... 29 

Closing Magnetic Tape Files 29 

Closing Disk Files,. . , 29 



Instructions for Processing Card Files . 31 

DTFSR Statement 31 

Imperative Macro Instructions 3 5 

PUT Macro Instruction 35 

GET Macro Instruction , 3 6 

CRDPR Macro Instruction (IBM 2560 

MFCM) 3 6 

CNTRL Macro Instruction . . , 37 

EOM Macro Instruction (Combined 

Files) 39 

LOM Macro Instruction (Combined 

Files) , 39 

WAITC Macro Instruction 4 

Instructions for Processing 

Printer Files 44 

DTFSR Statement 4 4 

Imperative Macro Instructions 45 

PUT Macro Instruction 4 5 

CNTRL Macro Instruction 4 5 

PRTOV Macro Instruction 4 6 

Instructions for Processing 

Printer-Keyboard Files 48 

DTFPK Statement , 4 8 

DTFLC Statement , 49 

Imperative Macro Instructions 50 

PUT Macro Instruction 50 

READ Macro Instruction 50 

WAITF Macro Instruction 51 

CNTRL Macro Instruction 51 

PRTOV Macro Instruction 52 

Instructions for Processing Magnetic 

Tape Files 53 

DTFMT Statement 53 

Imperative Macro Instructions ,58 

PUT Macro Instruction . -. 59 

GET Macro Instruction 59 

CNTRL Ma.cro Instruction , 60 

TRUNC Macro Instruction 62 

RELSE Macro Instruction 62 

LBRET Macro Instruction . . . . . . . 63 

FEOV Macro Instruction 6 3 

Instructions for Processing Sequential. 

Disk Files 65 

DTFSD Statement. , 65 

Imperative Macro Instructions 6 8 

PUT Macro Instruction . 6 8 

GET Macro Instruction 69 

CNTRL Macro Instruction 69 



Instructions for ProcBssing 

Direct-Access Disk Files 7 

DTFDA Statenient 70 

Imperative Macro Instructions 7 2 

WRITE Macro Instruction 72 

READ Macro Instruction 7 2 

WAITF Macro Instruction 72 

CNTRL Macro Instruction 7 3 

CI'JVRT Macro Instruction 73 



Cylinder, Track and Record References. . 73 

Instructions for Processing 

Indexed-Sequential Disk Files 7 5 

DTFIS Statement 7 5 

Loading or Extending 

Indexed-Sequential Files 80 

SETFL Macro Instruction 81 

WRITE Macro Instruction 81 

ENDFL Macro Instruction 82 

Adding Records to Indexed-Sequential 

Files 82 

WRITE Macro Instruction 82 

WAITF Macro Instruction 82 

Random Retrieval and Updating 82 

READ Macro Instruction 8 2 

WRITE Macro Instruction 8 3 

WAITF Macro Instruction 8 3 

Sequential Retrieval and Updating. ... 83 

SETL Macro Instruction 84 

GET Macro Instruction 8 4 

PUT Macro Instruction 8 5 

ESETL Macro Instruction 8 5 



Organizing and Processing 

Indexed-Sequential Files gg 

Organizing an Indexed-Sequential 
File 86 

Processing an Indexed-Sequential 
File 90 

Monitor Macro Instructions 95 

COMRG Macro Instruction 9 5 

MVCOM Macro Instruction 95 

FETCH Macro Instruction 95 

EOJ Macro Instruction 96 

IQIPT Macro Instruction 96 

Programming Considerations 97 

Restrictions 97 

Overlay Prograirming for OPEN and 

CLOSE 97 

Register Usage 99 

The Inquiry Program ioi 

File Protection 102 

The ATENT Routine 105 

ATENT Macro Instruction 105 

RETRN Macro Instruction 105 

Control Statements 106 

Device Error Recovery 107 

Language Compatibility 108 

Appendix A. Summary of File Definition 
Statements , 109 

Appendix B. Summary of Imperative 

Macro Instructions 122 

Appendix C. Summary of Monitor Macro 
Instructions 126 

Appendix D. Programming Examples . . . .127 

Glossary 164 

Index 167 



IntraductiDn 



The Disk Programming System (DPS) 
Input/Output Control System (IOCS) des- 
cribed in this publication consists of 
macro instructions which in turn select and 
generate routines that perform all 
input/output operations for card devices^ 
printer,, printer-keyboard, magnetic tape,, 
and disk. The IOCS also supports the Mag- 
netic Character Readers and the Binary 
Synchronous Communications Adapter. For 
details about the functions and features of 
the 1419/1259 DPS IOCS and the BSCA IOCS, 
refer to the SRL publications IBM 
System/360 Model 20„ Disk and Tape Program- 
ming Systems, Input/Output Control System 
for the 1419 and 1259 Magnetic Character 
Readers , Form C3 3-6001; and IBM System/360 
Model 20, Input/Output Control System fo r 
the Binary Synchronous Communications Adap- 
ter , Form C33-4001. 

You can use the IOCS only in programs 
written in Assembler language. For details 
of the Assembler language refer to the SRL 
publication IBM System/3 60 Model 20 „ Disk 
and Tape Programming Systems, Assembler 
Language , Form C24-9002. Writing Assembler 
language programs with IOCS macro instruc- 
tions enables you to achieve optimum time 
performance. Moreover, you can make use of 
extended overlay techniques, which results 
in a decrease of main-storage requirements 
and facilitates exit handling. 

Routines for reading input data, writing 
output data, and controlling the 
input/output (I/O) devices form a large 
part of most programs written in the Assem- 
bler language. By using the routines sup- 
plied by IBM, you can avoid writing I/O 
routines for each of your programs. The 
time normally required for writing and 
testing I/O routines, you can thus use for 
actually solving the problem. The IOCS 
routines perform all required input and 
output operations. They ensure that 
machine interrupt conditions are handled 
properly, and that optimum overlapping of 
processing and input/output operations 
occurs. 

The IOCS routines are stored, in the 
form of macro definitions, in the maicro 
library of the disk-resident DPS, They can 
be included in a problem program through 
the use of macro instructions. You are 
required to: 

1. describe the file by means of de^clara- 
tive macro instructions (referred to as 
file definition statements in this 
publication) ,, 



2. refer to the file in imperative macro 
instructions that cause the desired I/O 
operations, and 

3. write your own exit routines that are 
entered automatically by the IOCS when 
an exit condition (e.g., end-of-file) 
occurs. 

The Assembler uses the file definition 
statements and the imperative macro 
instructions to select macro definitions 
and generate routines that perform all I/O 
functions required by the problem program. 

Data processing operations that can be 
performed by the IOCS include record stor- 
age, record retrieval, and record updating. 
A detailed description of each of these 
operations is given where the appropriate 
macro instructions are described. A brief 
summary is given below. 



Record Storage; The IOCS provides for the 
storing of information by generating the 
routines required to punch records into 
cards, to list them on a printer or on the 
printer-keyboard, and to write them onto 
magnetic tape or disk. 

Record Retrieval: The IOCS allows you to 
retrieve records from card, magnetic tape, 
and/or disk files, and records entered on 
the printer-keyboard in sequential order. 
For files in disk storage, the IOCS pro- 
vides for the retrieval of records either 
in sequential or random order. 



Record Updating: The IOCS al 
retrieve a record from disk s 
it, and then return it to the 
from which it was retrieved, 
of records in a card or tape 
the entire file to be read as 
produce a new updated file as 
the case of a card file, the 
mation may be punched into th 
cards. ) 
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In addition to the functions described 
above, the IOCS is capable of : 

• blocking and deblocking magnetic tape 
and disk records; 

• switching between two I/O areas (if two 
areas are specified) ; 

• handling end-of-file conditions; 

• handling end-of-volume conditions; 
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• handling I/O error conditions; and 
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• performing I/O control functions such as 
card stacking, tape rewinding, seeking 
data on disk, etc. 

All of these functions are provided by 
the IOCS for the processing of files organ- 
ized according to any of the three avail- 
able methods of file organization: 

1. Sequential file organization, which 
provides for sequential processing of 
card,, printer, printer-keyboard, mag- 
netic tape, and disk records. 

2. Direct-access file organization, which 
provides for random and sequential 
processing of disk records. 

3. Indexed-sequential file organization,, 
which provides for both sequential and 
random processing of disk records. 



Machine Requirements 

MINIMUM SYSTEM CONFIGURATION 
Submodel 2 

• An IBM 2020 Central Processing Unit, 
Model BC2 (12,288 bytes of main 
storage) ; 

• an IBM 2311 Disk Storage Drive,, Model 11 
or 12; 

• one of the following card reading devi- 
ces : 

IBM 2501 Card Reader, Model Al or A2, 
IBM 2520 Card Read-Punch, Model Al, 
IBM 2560 Multi-Function Card Machine 
(MFCM) , Model Al; 

• one of the following printers: 

IBM 1403 Printer, Model Nl,, 2, or 7, 
IBM 2203 Printer, Model Al. 



Submodel 4 

• An IBM 2020 Central Processing Unit, 
Model BCU (12,288 bytes of main 
storage) ; 

• an IBM 2311 Disk Storage Drive,, Model 
12; 

• an IBM 2560 MFCM, Model A2 ; 

• an IBM 2203 Printer,, Model A2. 



• An IBM 2020 Central Processing Unit, 
Model BC5 (12,288 bytes of main 
storage) ; 

• an IBM 2311 Disk Storage Drive,, Model 11 
or 12; 

• one of the following card- reading devi- 
ces : 

IBM 2501 Card Reader, Model Al or A2 , 
IBM 2520 Card Read-Punch, Model Al, 
IBM 256 Multi-Function Card Machine 
(MFCM) , Model Al; 

• one of the following printers: 

IBM 1403 Printer,, Model Nl,, 2, or 7, 
IBM 2203 Printer,, Model Al. 



MAXIMUM SYSTEM CONFIGURATION 
Submodel 2 

• An IBM 2020 Central Processing Unit, 
Model D2 (16,, 384 bytes of main storage); 
with or without a Binary Synchronous 
Communications Adapter (Feature 

No. 2074); 

• two IBM 2311 Disk Storage Drives, Model 
11 or 12 (both must be the same model) ; 

• an IBM 2415 Magnetic Tape Unit, Model 1 
through 6; 

• an IBM 2501 Card Reader, Model Al or A2; 

• an IBM 1442 Card Punch, Model 5; 

• one of the following card units: 

IBM 2520 Card Read-Punch, Model Al, 
IBM 2520 Card Punch, Model A2 or A3, 
IBM 2560 MFCM, Model Al ; 

• one of the following printers: 

IBM 1403 Printer, Model Nl, 2, or 7, 
IBM 2203 Printer, Model Al ; 

• an IBM 2152 Printer-Keyboard; 

• a 1419 or 1259 Magnetic Character 
Reader, 

Submodel 4 

• An IBM 202 Central Processing Unit, 
Model D4 (16,384 bytes of main storage); 
with or without a Binary Synchronous 
Communications Adapter (Feature 

No. 2074); 

• two IBM 2311 Disk Storage Drives,, Model 
12; 



• an IBM 2560 MFCM, Model A2; 

• an IBM 2203 Printer, Model A2; 

• an IBM 2152 Printer-Keyboard, 

Submodel 5 

• An IBM 2020 Central Processing Unit, 
Model E5 (32,768 bytes of main storage); 
with or without a Binary Synchronous 
Communications Adapter (Feature 

No. 2074; 

• four IBM 2311 Disk Storage Drives, Model 
11 or 12; 

• an IBM 2415 Magnetic Tape Unit, Model 1 
through 6 ; 



• an IBM 2501 Card Reader, Model Al or A2 ; 

• an IBM 14 42 Card Punch, Model 5; 

• one of the following card units: 

IBM 2520 Card Read-Punch, Model Al, 
IBM 2520 Card Punch,, Model A2 or A3, 
IBM 2560 MFCM, Model Al; 

• one of the following printers: 

IBM 140 3 Printer, Model Nl, 2, or 7, 
IBM 2203 Printer, Model Al; 

• an IBM 2152 Printer-Keyboard; 

• a 1419 or 1259 Magnetic Character 
Reader. 
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Data Files 



Many types of data files are used in data 
processing applications. Theoretically 
there is no restriction on the logical 
content of information that can !oe proc- 
essed, on the relationship of various units 
of information in the file, on the organi- 
zation, or on the format. 

To simplify the description of the use 
of the IOCS for card input or output, card 
files are considered to be either combined 
files or simple files. A combined file, 
which must be fed from one hopper of the 
I/O device, is a set of cards for which the 
IOCS performs both input and output opera- 
tions,, i.e., cards are to be read and 
punched during one pass through the I/O 
device. (Output data may be punched either 
into cards containing input data or into 
interspersed blank cards.) All other card 
files (input only or output only) are con- 
sidered to be simple files. 



LOGICAL RECORDS 

A data file is made up of a collection of 
logical records that normally have some 
relation to one another. The logical 
record is the basic unit of information for 
a data processing program. For example, a 
logical record might be one employee's 
I'ecord in a master payroll file, or the 
record of one item in an inventory file. 
Much data processing consists of reading, 
processing, and Vi/riting individual logical 
records. 



RECORD BLOCKING 

Blocking of records is the process of 
grouping a number of logical records before 
writing them on ai storage device. A group 
of logical records is referred to as a 
block. Blocking improves processing effi- 
ciency by reducing the number of I/O opera- 
tions required to process a file, and also 
saves storage splice on the external medium 
on which the file resides because there are 
no gaps between the individual logical 
records in a block. 



RECORD FORMATS 

Logical records may be in one of three 
formats: fixed length (format-F), variable 
length (format-V) or undefined (format-U). 
The record format and whether or not the 
file is blocked are specified in the file 
definition statement for the file. 



The prime consideration in the selection 
of a record format is the nature of the 
file itself; that is, the type of input the 
program will receive and the type of output 
it will produce. The selection of a record 
format is based on this knowledge,, as well 
as an understanding of the type of I/O 
device on which the file is written and of 
the access method used to read or write the 
file. 

Format F 

Format-F records are fixed-length records. 
Figure 1 shows one example of format-F 
records on magnetic tape (part A) and of 
format-F records on disk (part B) . The 
number of logical records within a block 
(blocking factor) is normally constant for 
every block in the file unless the block is 
truncated (short block) by a TRUNC macro 
instruction. 

The TRUNC macro instruction serves to 
write truncated blocks on magnetic tape. 
Truncated blocks that may be contained in a 
tape input file are handled automatically 
by the IOCS. 

In unblocked format-F records, the logi- 
cal record constitutes the block. 

The IOCS performs physical- length check- 
ing on blocked format-F records and auto- 
matically handles truncated blocks. 
Because the channel and interruption system 
can be used for length checking and because 
blocking and deblocking are based on a 
constant record length, the IOCS processes 
format-F records faster than format-V 
records. 



Form at V 

Forraat-V records are variable 
records, each of which descri 
length. Format-V records can 
Each block of variable-length 
includes a block length. The 
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tape. The first four charact 
logical record contain contro 
Specify the length of the log 
the first-two characters when 
the record; the next two char 
reserved and must be binary z 
four bytes required for the 1 
tion are included in the byte 
record. 
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Figure lA. Example of Format-F Records on Magnetic Tape 
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Figure IB. Example of Format-F Records on Disk 
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a. Variable Length - Unblocked Record Format 
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b. Variable Length - B!cx;ked Record Format 

BL = Block Length 
RL = Record Length 
IBG= Inter-Block Gap 

iFigure 2. Example of Format-V Records on Magnetic Tape 



The first four characters of each block 
of format-V records contain block control 
information. The first two characters,, 
which are provided by the IOCS at the time 
the records are blocked, specify the length 
of the block; the next two characters are 
reserved and must, be binary zeros. 
Although these four characters do not 
appear in the record furnished to the prob- 
lem program, the input and output areas 
must be large enough to accommodate them. 



In unblocked format-V records, the logi- 
cal record and the block control informa- 
tion constitute the block. 



Format U 

If the record format of a file is referred 
to as undefined., the record characteristics 
are unknown to the IOCS. Because each 
block is treated as an unblocked logical 
record, any blocking or deblocking must be 
performed in the problem program. 



Allowable Formats for Files 

The format of a file depends upon the type 
of I/O device used. See Figure 3 for the 
record format (s) permitted with each type 
of I/O device. 



RECORD 
FORMATS 



Blocked 



-+- 



Unblocked 



Forraat-F 

(fixed 

length) 



Tape** 
Disk 



+- 



Card 
Printer 
Printer- 
Keyboard 
Disk 
Tape** 



Format-V 

(variable 

length) 



Tape* ** 



T 1 

Format-U 1 
(length | 
undefined) 1 
^ 

I 



Tape* ** 



Tape** 



* If a tape file is to be read backwards,) 
format-V records are not allowed. j 

I 

**The Data Conversion feature is required] 

if a 7-track tape is used and one of | 

the following conditions exists: j 

1 

• Format-V records are to be read or | 
written. 1 

• Format-F or format-U records to be | 
written contain EBCDIC characters | 
other than those included in the BCD j 
character set. j 

• Format-F or format-U records to be | 
read have been written using the | 
Data Conversion feature. 



•Figure 3. Formats Valid in Accordance with 
I/O Devices 
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Overlapping and Storage Areas 



The IOCS is designed to overlap I/O opera- 
tions with each other and/or with the proc- 
essing of data. 

Submodels 2 and 4. In the case of Model 20 
Submodels 2 and 4, input/output overlap 
with processing is provided for the prin- 
ter, the printer-keyboard, and for card 
reading and punching. Due to hardware 
characteristics of the Submodels 2 and 4, 
magnetic tape and disk input and output 
operations cannot be overlapped with proc- 
essing or with card and printer I/O opera- 
tions,, except as follows : 

1. The execution of tape or disk control 
operations (e.g., tape rewind, seek 
operation on disk, etc.) can be over- 
lapped with card and printer I/O opera- 
tions and/ or processing. 

2. Magnetic tape and disk I/O operations 
can be overlapped with printing on the 
IBM 1403 if the print operation has 
been started before the I/O instruction 
for tape or disk is issued. 

Submodel 5 . With the Submodel 5, full 
overlapping between I/O operations and 
processing is possible if the read/compute,, 
write/ compute (RWC) feature is utilized. 
If the RWC feature is not utilized, the 



I/0-processing capability is the same as 
with Submodels 2 and 4. The overlapping 
capabilities available with the Submodel 5 
utilizing the read/compute, write/compute 
feature are shown in Figure 4 . 



The extent of overlapping is governed by 
the assignment of I/O areas and work areas 
in the source program. The choice of these 
areas can affect the amount of time that 
the CPU is available for processing. These 
areas and the effects of various combina- 
tions of them are described below. 



I/O AREAS 

An I/O area is an area into which input 
data is read or from which output data is 
written. The data read into or written 
from an I/O area consists of one block 
(i.e., one physical record). 

For each card file, provide either two 
I/O areas and one work area or one I/O area 
and one work area in the source program. 

For printer files, an output area must 
only be provided if the dual-feed carriage 
feature is used. Otherwise, only a work 
area should be provided. 



T T 

Separate] 
Work 1 
A.rea | Amount of Effective Overlap 



Record 
Format 



Number of 
I/O Areas 



+- 



■+ 

I No overlap. 

4- 



no 



Unblocked 



yes [Overlap processing of all records. 
1 (Redord move required). 



yes 



I _ 

[Overlap processing of all records, 
1 (No record move required) . 
-I 

[Overlap processing of all records. 



1 

no [No overlap. 
1 

yes [Overlap processing of last record in each block- 



Blocked 



no [Overlap processing of full block. 
+ 

yes [Overlap processing of full block. 

X . 



—I 



[Note: Overlap given is the maximum achievable. 

L 



Figure 4. Summary of Overlapping Capabilities with Read/Compute, Write/Compute 
Overlap Feature of Submodel 5 
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For each magnetic tape and sequential 
disk file you must define at least one I/O 
area in the source program; you may also 
provide a work area. 

For sequential processing of disk and 
magnetic tape files with a Submodel 5 uti- 
lizing the RWC feature, you can specify two 
I/O areas to decreasfe the throughput time. 

For direct-access disk files you must 
define one I/O area but no work area. For 
indexed-sequential files you can specify 
one to three I/O areas (lOAREAL, lOAREAR, 
lOAREAS) depending on the type of process- 
ing involved. You may specify the same 
area for lOAREAS,, lOAREAR, and lOAREAL if 
you make sure that you finished processing 
the contents of one I/O area before you 
start using the area as another I/O area. 

Specify the symbolic address of the I/O 
area(s> in the file definition statement 
for the appropriate file to be processed. 
The size of an I/O area must be equal to 
the length of the longest block to be proc- 
essed and, for disk files, must be a multi- 
ple of 270. When unblocked records in 
indexed-sequential files are processed, add 
six bytes to the I/O areas to accommodate 
the sequence-link field. With the excep- 
tions mentioned in the section One I /O Area 
and a Work Area , under the heading Non- 
Overlap Mode , do not use these I/O areas 
for any other purpose in the problem 
program. 



WORK AREAS 

A work area is an area that is used for 
processing one logical record. The IOCS 
moves one logical record from an input area 
to a work area or from a work area to an 
output area. If a work area is to be used 
(a work area must be used for card and 
printer files, for printer- keyboard output 
files, and for some indexed-sequential 
files) , you must define it in the source 
program and indicate in the file definition 
statement for the appropriate file that a 
work area is to be used. In addition, any 
GET or PUT macro instruction that refers to 
the file must specify the symbolic address 
of the work area used. The use of work 
areas is not limited to one per file. For 
example, you may use a different work area 
for every alternate GET or PUT macro 
instruction. However, you must specify 
only one work area in any GET or PUT macro 
instruction. The advantages of using a 
work area are explained below under 
I/O- Work Area Combinations . 

If a work area is not specified, the 
IOCS makes all records of that file avail- 
able in the I/O area(s). 



The length of a work area must be equal 
to the length of the longest logical 
record. Note that the record length of 
format-V records is contained within the 
first four bytes of the record (see Figure 
2) . The problem program must include pro- 
visions for handling the record length 
(e.g., it must insert the record length 
into output records). The use of a work 
area permits the overlapping of I/O opera- 
tions and internal processing, thus reduc- 
ing processing time. 



I/O-WORK AREA COMBINATIONS 

For a particular file, you can specify one 
of the I/O-work area corabinat ions as shown 
in Figure 5. 

I/O operations may require the use of up 
to two registers. The record format in 
conjunction with the I/O-work area combina- 
tion used determines whether none, one or 
two registers must be specified. To deter- 
mine when it is necessary to specify a 
register, refer to Figure 26 in the section 
Programming Considerations . 



No I/O Area and a Work Arec 



Data to be printed on the standard carriage 
of an IBM 2203 or on the IBM 1403 is print- 
ed from the first 144 main storrxge posi- 
tions that are used as a print buffer. 
This is a hardware characteristic. A PUT 
macro instruction for a printer file (1) 
causes the output data to be transferred 
from the specified work area to tne print 
buffer area and (2) initiates the print 
operation. 

One I/O Area 

The specification of just one I/O area is 
permitted for magnetic tape and disk files 
and is mandatory for printer-keyboard input 
files. 

When a GET or a PUT macro instruction is 
issued while another I/O operation is being 
executed, the. program enters a waiting loop 
and remains there until the current I/O 
operation is completed. 



One I/O Area and a Work .-rea 

You must indicate the use of a work area in 
the file definition statement for the file. 
Also, define the work areas to be used in 
your program and assign a name to each of 
them. That name is then specified as the 
second operand of each GET or PUT macro 
instruction you issue. 
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CARD AND PRINTER FILES: For card and prin- 
ter files, the use of a work area is manda- 
tory. It permits the IOCS to overlap an 
I/O operation with processing and/or with 
another I/O operation. 

The following considerations apply to 
the use of I/O areas as work areas for 
files being processed in the overlap and 
the non-overlap raode: 

Overlap Mode. I/O areas for files proc- 
essed in the overlap mode must not be used 
as work areas. During processing, a given 
record is processed in the specified work 
area while other records are simultaneously 
read into an input area or punched or 
printed from an output area. 

Non-overlap Mode. For combined files, only 
the punch area may also be used as a work 
area. For simple files, the input or out- 
put area may be used as a work area. Card- 
print areas must not be used as work areas. 



PRINTER-KEYBOARD OUTPUT FILES: Printer- 
keyboard output files require a work area 
that you must provide in the problem 
program. In addition, an output area is 
required. If no output area is provided in 
the problem program, the output area allo- 
cated at the time the Monitor is generated 
is used. 



MAGNETIC TAPE AND DISK FILES: The use of 
work area with Submodels 2 and U and with 
Submodel 5 not utilizing the RWC feature 
may provide the advantage of additional 
processing time becoming available by 
allowing to optimize overlap between I/O 
operations with processing. 



When a work area is used, processing can 
be done in a fixed area and no I/O register 
is required. These are further advantages 
offered by the use of a work area. 



Two I/O Areas 

For disk and magnetic tape files, the use 
of two I/O areas with a Submodel 5 uti- 
lizing the RWC feature is recoirmended if 
the processing time for the last (or only) 
record of a block is shorter than the time 
required to read the next record (block). 
Two I/O areas are used for sequential disk 
or magnetic tape files. 

Two I/O Areas and a Work Area 

Two I/O areas and a work area must be spec- 
ified for combined files and may be speci- 
fied for simple card files read on a 2501 
Card Reader that is working in overlap 
mode. This allows the IOCS to maintain 
maximum card reading speed. 

For magnetic tape and sequential disk 
files you should consider the use of two 
I/O areas and a work area only if these 
files are processed by a Submodel 5 uti- 
lizing the RWC feature. No additional 
throughput advantage can be gained from 
specifying a work area in addition to the 
two I/O areas. However., it might be of 
advantage that no I/O register is required 
when a work area is specified. 

I/O-Work Area Combinations fo r 
Indexed-Sequential Files 

For indexed-sequential files you can speci- 
fy up to three I/O areas and up to four 
work areas depending on the type of proc- 
essing involved (see Figure 5). 
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File Organization and Processing Concepts 



When planning your input and output files, 
consider the following: 

1. processing requirements for storing, 
updating, or displaying data^ and 

2. the I/O devices available. 

Card, magnetic tape, printer, and 
printer-keyboard files are organized in a 
sequential order, because they can be proc- 
essed only in the existing sequence. Disk 
files can also be organized and processed 
consecutively. However, for disk files you 
are not restricted to sequential file 
organization, but have the option of work- 
ing with three methods of file organization 
and corresponding methods of file process- 
inc 



For disk files, it is important to dis- 
tinguish between two terms : 

1. File Organization refers to the method 
of arranging data records on a direct- 
access storage device; it is the 
technique used to "load" the file. 

2. File Processing is the method of 
retrieving records from, adding records 
to, or updating records in a file. 



Note; Files on disk may consist of more 
than one disk area (extent) ; the extents of 
a disk file need not be adjacent and may be 
contained in more than one volume. The 
lower and upper limit of a single extent 
must be contained within one volume. The 
XTENT control Statement, which is used to 
specify the extents of a disk file,, is 
described in the SRL publication IBM 
System/360 Model 20, Disk Programming Sys- 
tem, Control and Service Programs , Form 
C2U-9006. 



FILE ORGANIZATION 

Card, magnetic tape,, printer and printer- 
keyboard files are organized as sequential 
files. For disk files, the data records 
can be organized as a sequential,, direct- 
access or indexed-sequential file. With 
disk, more than one method of processing 
may be used for a single method of file 
organization. The method of file 
organization best suited to a particular 
file depends on the processing requirements 
for the file. 



Sequential File Organization 

Sequential file organization means that the 
records are written consecutively on the 
storage medium. The physical order of the 
records prior to organization of the file 
determines both the physical order of the 
organized file and the sequence in which 
the records will be subsequently processed. 
A sequentially organized file is normally 
established by sequentially "loading" 
records that have been pre-sorted on a 
significant control field within each 
record. In this case., the last logical 
record is located in the last physical 
position of the file on the storage medium. 

A sequentially organized card or magnet- 
ic tape file can only be processed in the 
order in which the records physically 
occur, i.e., sequentially. (This is also 
the most efficient method for processing a 
sequential disk file.) Thus, sequentially 
organized files are subject to certain 
processing limitations such as : 

• The only way to retrieve or update a 
record in a sequential file is to read 
every record in the file beginning with 
the first. Therefore, sequential file 
organization is the most efficient meth- 
od if a large number of records in the 
file are updated or examined every time 
the file is processed. An extremely low 
level of activity, on the other hand, 
justifies the use of another method of 
file organization that permits random 
processing of the file. 

• Additions and deletions can only be 
accomplished by copying the entire file. 
During the copying, the records to be 
added are merged in and the records to 
be deleted are excluded. 

Sequential file organization is used for 
all card and magnetic tape files, printer, 
and printer-keyboard files. 

The sequentially organized disk file is 
similar in concept to a sequentially organ- 
ized card or magnetic tape file. Sequen- 
tial disk files differ from card and mag- 
netic tape files in two ways: 

1. If processing involves only the updat- 
ing of records already in the file, an 
updated record may be rewritten into 
the same physical location from which 
it was retrieved and records that are 
to remain unchanged need not be re- 
written at all. (With a card or 
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raagnetic tape file, the updated 
records, together with any unchanged 
records, must be stored in a newly 
created file.) 



organization has the following features 
which distinguish it from sequential file 
organization: 



2. A sequentially organized disk file may 
be processed randomly by specifying the 
IOCS instructions used for direct- 
access files. You must know and 
specify the actual physical disk 
address of the record to be retrieved. 
In your routines, you must also consid- 
er the blocking factors of the sequen- 
tial file, i.e., you must deblock the 
file. 

Direct-Access File Organization 

Both the sequential and indexed-sequential 
methods of file organization involve 
records that are stored in some logical 
sequence and are usually processed in that 
sequence. With the direct-access method of 
file organization, records are retrieved 
from or written onto a physically addressed 
location on disk. The physical disk 
address of a record to be loaded or 
retrieved must be calculated in the problem 
program. Determine a randomizing "formula" 
to convert certain data within the record 
to a physical address on disk; the record 
is stored at the physical address developed 
by the randomizing formula. Thus, normal- 
ly, in a file that is being loaded, the 
records are not placed in contiguous loca- 
tions on the disk but are "scattered" 
throughout the area of the pack that is to 
contain the file. 

In selecting the best method for loading 
a direct-access file, it is necessary to 
keep two things to a minimum: 

1. the number of different records for 
which the same disk address is derived, 
and 

2. the amount of storage space required, 
i.e., minimize the amount of wasted 
storage space. 

A file written on disk by the direct- 
access method may be processed randomly or 
sequentially. Random retrieval from a 
direct-access file is generally faster than 
random retrieval from an indexed-sequential 
file. The direct-access method, however, 
is not best suited to retrieval of records 
in a logical sequence. 

Indexed-sequential File Organization 

An indexed-sequential file is organized 
from records that have been sorted 
according to specific control information, 
i.e., keys, contained in each record. The 
structure of an indexed-sequential file is 
basically sequential, but this type of file 



The process of locating records by ref- 
erencing record keys permits the option 
of processing an indexed-sequential file 
in either sequential or random order. 

When an indexed-sequential file is load- 
ed the IOCS constructs indexes to be 
used to locate records in subsequent 
processing. Sequential retrieval 
through use of these indexes is almost 
as efficient as sequential processing 
with a sequential file. In addition, 
these indexes make it possible to 
retrieve individual records in random 
order. 

In a sequential file, the original 
sequence can be maintained only by copy- 
ing the entire file and inserting the 
additions in the appropriate location. 
In an indexed-sequential file, overflow 
areas can be reserved to accommodate 
additions. 



As the number of additions increases,, 
the efficiency of processing an indexed- 
sequential file decreases. This is due to 
the additional access-arm movement required 
to read records that have been forced onto 
the reserved overflow tracks. Therefore, 
there is a point at which it becomes 
advisable to reorganize an indexed- 
sequential file. (That is, to create a new 
file from the old one, and,, in the process, 
to exclude all i^ecords tagged for deletion. 
In the same operation, the IOCS merges all 
records in the overflow area into the main 
file.) 



When the number of additions and 
deletions (or even updates) to be made 
regularly in a file is high,, sequential 
file organization saves processing time. 



Two other; factors should be considered 
when indexed-sequential file organization 
is used: 

1. An indexed-sequential file may be 
stored orj more than one volume, but all 
of these volumes must be on line during 
any type of processing, whereas a 
sequential file may be stored on any 
number of voliames, which can be mounted 
and processed consecutively. 

2. An indexed-sequential file cannot be 
direct input to the Model 20 DPS 
Sort/Mei^ge program and to the file-to- 
file Utility programs. 
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FILE PROCESSING 

The IOCS provides for the processing of 
records in sequential order for 
sequentially organized files, in random or 
sequential order for direct-access files, 
and in random or sequential order for 
indexed-sequential files. Both the direct- 
access and the indexed-sequential file 
organization methods apply onlv to disk 
files. 



Processing Sequential Files 

Sequential processing is used to read, 
write, and process consecutive records in a 
file. Cards are processed in the order in 
which the cards are read. Tape records are 
processed beginning with the first record 
continuing through the records to the last 
one. Disk records are processed beginning 
with a starting disk address and continuing 
through the records on successive tracks 
and cylinders to the ending disk address. 



The macro instructions GET and PUT are 
used to cause the transfer of data from and 
to sequential files. In the case of a 
Model 20, Submodel 5, the transfer of data 
to and from the I/O devices overlaps fully 
with processing. In all other cases, the 
transfer of data in printer., printer- 
keyboard, and card files overlaps with 
processing, unless processing in non- 
overlap mode has been specified. The 
extent of overlapping depends on the 
assignment of I/O areas and work areas. 
Regardless of the extent of overlapping,, 
when a GET macro instruction has been exe- 
cuted, the desired record is available for 
processing. Similarly, when a PUT macro 
instruction has been executed, you can 
begin building the next output record for 
the same I/O device. 



Processing Direct-Access File s 

The IOCS provides routines to read» write, 
and process disk records that are organized 
according to the direct-access method. The 
IOCS locates a disk record for processing 
by referring to the physical disk address 
which must be supplied in the problem pro- 
gram. 



The macro instructions READ and WRITE 
cause the transfer of data from and to 
files when the direct-access method is 
used. These macro instructions permit 
records to be retrieved from or placed into 
a file* They also permit the updating and 
replacing of records in a file. When the 
record is required for processing, the 
problem program must use a WAITF macro 



instruction to ensure that the transfer of 
data has been completed before processing 
continues. 



Direct-access files can be processed 
sequentially. However, these files are not 
best suited to retrieval of records in a 
logical sequence. 



Processing Indexed-Sequential File s 

For indexed-sequential files, the IOCS 
provides routines to perform the following 
functions : 



1. Loading the file. 



2. Extending the file with records that 
are all higher in sequence than those 
already loaded. 

3. Adding records in sequence without 
copying the entire file. 

4. Retrieving records (with or without 
updating) either sequentially or ran- 
domly. 

Any record stored at any location in the 
logical file can be retrieved randomly. 
The problem program supplies the control 
information (key) of the desired record; 
the IOCS initiates a search for the record 
and makes it available for processing. 

If an indexed-sequential file is proc- 
essed sequentially, the key of the first 
record to be processed is specified in the 
problem program. The records are made 
available, one after the other. When a 
macro instruction requires another record, 
the IOCS retrieves the succeeding record 
from the logical file in the order deter- 
mined by the key, until the problem program 
terminates the operation. 

The macro instructions WRITE and READ 
cause the transfer of data to and from an 
indexed-sequential file when the records 
are loaded or when they are processed in 
random orde?:. The macro instructions GET 
and PUT are used when the records of an 
indexed-sequential file are processed 
sequentially. 

A READ or WRITE macro instruction causes 
the I/O operation to be initiated. When 
the record is required for processing, the 
problem program must use a WAITF macro 
instruction to ensure that the transfer of 
data has been completed before processing 
continues. With GET and PUT macro instruc- 
tions,, no subsequent WAITF macro instruc- 
tion is necessary. 
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IOCS Macro Instructions 



IBM supplies two types of macro instruc- 
tions for the input/output control of 
records from various I/O units : 

• declarative macro instructions 
(hereafter referred to as file defini- 
tion statements) , and 

• imperative macro instructions. 

These instructions are discussed in detail 
on the following pages. The description of 
the instructions is divided into several 
sections according to the device used and 
the type of file being processed: card, 
printer, printer-keyboard, magnetic tape., 
sequential disk, direct-access disk., and 
indexed-sequential disk. 

Some of the IOCS macro instructions 
pertain to all files irrespective of the 
device used or the type of file organiza- 
tion involved. These instructions are 
described in the sections Begin and End 
Definition Statements (DTFBG, DTFEN) and 
Instructions for Opening and Closing Files 
(OPEN,, CLOSE). 

The following conventions apply to the 
description of the IOCS macro instructions 
in this publication: 

1. Upper-case letters and punctuation 
marks (except as described in items 3 
and 4 below) represent information that 
must be coded exactly as shown. 

2. Lower-case letters and terms represent 
information that you must supply. 

3. Information that is contained within 
brackets [ ] represents an option that 
can be included or omitted depending on 
the requirements of the program. 

4. An ellipsis (a series of three periods 
enclosed by commas) indicates that a 
variable number of items may be includ- 
ed. 



Assembly Pracedure 

The file definition statements are used by 
the Assembler to generate those routines 
that are required to perform the desired 
I/O operations when the program is execut- 
ed. The imperative macro instructions 
cause the generation of linkages to these 
generated routines. The IOCS routines and 
the problem program written in the Assem- 
bler language are assembled in one run. 



Figure 6 shows the arrangement of the 
assembly input deck for a source program 
using IOCS macro instructions. 



Source (Problem) 
Program 
Statements 
including IOCS 
Imperative Macro 
Instructions 



DTFEN Statement 




Definition Statements 
(for three files) 



DTFBG Statement 



•Figure 6. 



Job Control Statements 



Arrangement of Source Program 
Cards Using the IOCS 



Diagnostic Messages 

Diagnostj.c messages are provided to indi- 
cate error conditions at assembly time such* 
as missin,g operands of macro instructions, 
inconsistent combinations of operands, etc. 
This checking is in addition to that nor- 
mally performed by the Assembler program. 



File Definition Statements 

The file definition statements describe the 
logical file, indicate the type of process- 
ing to be used for the file, and specify 
main-storage areas for the file. It 
depends on the device used and on the type 
of processing involved which of the differ- 
ent file definition statements applies to 
you2; file. Only two definition statements 
(DTFBG,, DTFEN) are used irrespective of the 
type of file. The file definition state- 
ments aa;e: 

DTFBG Define The File BeGin. This defini- 
tion statement, if present, must 
precede all other file definition 
statements. The statement is manda- 
tory if the generated program is to 
be used as an inquiry program or if 
it is to be used as a mainline pro- 
gram that permits interrupts by 
inquiry programs. 
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DTFSR Define The File for a Serial Record 
device. This definition statement 
is used in conjunction with card and 
printer files. 



DTFPK Define The File for a Printer- 
Keyboard. This definition statement 
is used to define a printer-keyboard 
file. When form skipping and 
overflow printing are desired for a 
printer-keyboard output file, you 
must also provide a DTFLC statement. 



DTFLC Define The Line-Counter table. The 
DTFLC statement is used in conjunc- 
tion with a printer-keyboard output 
file if form skipping and overflow 
printing are desired. The DTFLC 
statement describes the line- counter 
table, which simulates a carriage- 
control tape for the printer- 
keyboard. 

DTFMT Define The File for a Magnetic Tape. 
This definition statement is used to 
define a file associated with a 
magnetic tape device. 

DTFSD Define The File for a Sequential 
file organization on Disk. This 
definition statement is used 
whenever a sequentially organized 
disk file is to be processed. 

DTFDA Define The File for a Direct-Access 
file organization. This definition 
statement is used whenever a disk 
file of direct-access organization 
is to be processed. 

DTFIS Define The File for an Indexed- 

Sequential file organization. This 
definition statement is used 
whenever a file of indexed- 
sequential organization is to be 
processed. 

DTFEN Define The File ENd. A DTFEN 

statement must follow the last defi- 
nition statement for each program. 



At the time of assembly, the file defi- 
nition statements for the file to be proc- 
essed must follow the START statement. The 
file definition statements may appear in 
any order with the following exceptions: 

• The DTFBG statement, if specified,, must 
be the first file definition statement 
in the program. 

• All DTFSR statements must be written 
contiguously, i.e., DTFSR statements 
must not be separated by another type of 
definition statement. 



• The DTFEN Statement must be the last 
file definition statement in the pro- 
gram. 

A summary of the file definition state- 
ments is given in Appendix A . 



FORMAT OF FILE DEFINITION STATEMENTS 

A file definition statement consist of (1) 
a header entry that assigns a name to the 
specified file and (2) detail entries that 
are required tc define parameters such as 
the device to be used, the mode of process- 
ing, etc. 

Note that all file definition cards, 
except the last one for each file, must 
have a continuation punch in column 72. 
This continuation punch may be any charac- 
ter. Punching in continuation cards must 
begin in column 16. 

Figure 7 is an example of a DTFMT file 
definition statement followed by a DTFEN 
statement. 



Header Entries 

A header entry consists of a f 
the name field (starting in co 
the mnemonic of the file defin 
ment in the operation field, w 
the name entry with at least o 
ing blank. The name entered i 
field may consist of up to sev 
ters; the first of these chara 
an alphabetic character other 



ile name in 
lumn 1) and 
ition state- 
hich follows 
ne interven- 
n the name 
en charac- 
cters must be 
than " I " . 



The file name assigned in a header entry 
for a file must be used in all imperative 
macro instructions that refer to this file. 



Detail Entries 

A detail entry (except in the DTFEN and 
DTFLC statements) is composed of a keyword 
immediately followed by an equal sign (=) 
which is, jn turn,, followed by a specifi- 
cation. 

Each specification must correspond to 
the rules and restrictions of programming 
in the Assembler language. Expressions are 
permitted for all detail entries that 
require the specification of a symbolic 
address. The length of a specification is 
limited to eight characters,, and blanks are 
not permitted. (Note that a blank within a 
detail-entry specification causes the 
Assembler to treat the remaining detail 
entries as comments). A comma must immedi- 
ately follow the specification of each 
detail entry, except the last (see Figure 
7) . 



IOCS Macro Instructions 
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Figure 7. DTFMT Statement Followed by a DTFEN Statement 



The detail entries describe the file and 
specify symbolic addresses of routines and 
areas used during the processing of a file. 
The detail entries may appear in any order. 
You should include only those entries that 
are applicable to a particular file or 
program. 



Note; 



The DTFEN and DTFLC statements are 



written according to the coding rules for 
positional macro instructions as described 
in the SRL publication IBM System/360 Model 
20 y Disk and Tape Programming Systems, 
Assembler Languag e, form C24-9002. The 
detail entries of positional macro instruc- 
tions must be written in a given sequence. 
A comma must immediately follow the speci- 
fication of each detail entry, except the 
last; a blank indicates the end of the 
sequence of entries. 



Imperative Macro Instructions 

Imperative macro instructions are included 
in the problem program. They perform such 
functions as opening a file, making records 
available for processing, writing records 
that have been processed, etc. The macro 
instructions IBM provides for input/output 
control are described in separate sections 
as follows: 

• Instructions for opening and closing 
files: OPEN, CLOSE. 



• Instructions for processing card files: 
PUT, GET, CRDPR, CNTRL, EOM , LOM, WAITC. 

• Instructions for processing printer 
files: PUT, CNTRL, PRTOV. 

• Instructions for processing printer- 
keyboard files: PUT, READ, WAITF, CNTRL, 
PRTOV. 

• Instructions for processing magnetic 
tape files: PUT, GET, CNTRL, TRUNC, 
RELSE, LBRET, FEOV. 

• Instructions for processing sequential 
disk files: PUT, GET, CNTRL. 

• Instructions for processing direct- 
access disk files: WRITE, READ, WAITF, 
CNTRL, CNVRT. 

• Instructions for processing indexed- 
sequential disk files: WRITE, READ, 
WAITF, PUT, GET, SETFL, ENDFL, SETL, 
ESETL. 

All macro instructions listed above are 
written according to the coding rules for 
positional macro instructions as described 
in the SRL publication IBM System/360 Model 
20, Disk and Tape Programming Systems, 
Assembler Language , Form C24-9002. 

The possible variations of the 
imperative macro instructions are summar- 
ized in Appendix B . 
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DTFBG Statement 

This statement, if used, precedes all other 
file definition statements in the source 
program. The DTFBG statement is mandatory 
if a program is to be executed as an 
inquiry program and/or as a mainline pro- 
gram permitting inquiry interrupts. The 
statement is optional for all programs that 
are not executed as inquiry programs and do 
not allow inquiry interrupts (see No O per- 
ands Specified below) . 



The DTFBG statement has the following 
format. 



Begin and End Definition Statements 



]yiAINPRG=YES 

Specify this entry if the program is to 
function as a mainline program that permits 
interrupts by inquiry requests. You cannot 
use the program as an inquiry program. The 
Open routines for disk files provide for 
file protection (see File Protection in the 
section The Inquiry Program ) . If you spec- 
ify ATENT=YES together with iyiAINPRG=YES., 
the MAINPRG entry is ignored because a 
program using the ATENT entry cannot be 
executed as a mainline program that allows 
inquiry interrupts. 



r T T ■ 1 

I Name] Operation I Operands | 

^ 1 1 ^ 

I I DTFBG I [detail entry] | 

L J. 1 J 

The name field must be blank and the opera- 
tion field must contain DTFBG. The operand 
field may be blank, or may contain one or 
two detail entries. The detail entries 
that may follow a DTFBG header entry are 
shown in Figure 8. 

Note; To be compatible with the Tape Pro- 
gramming System, the specification RWC~YES 
in the operand field of the DTFBG statement 
does not lead to an error but is ignored. 



INQPRG=YES 

This specification in the DTFBG statement 
allows you to use the program as an inquiry 
program. When an inquiry request calls a 
program assembled with the entry 
INQPRG=YES, the Open routine for any disk 
files provides for file protection as des- 
cribed in the section The Inquiry Program . 



A program you specified as an inquiry 
program may be executed as a mainline pro- 
gram. When the program is loaded as a 
mainline program, a warning halt occurs. 
The operator may continue the job if the 
Monitor input area is not used in the pro- 
gram. 



T 1 

Inquiry Interrupt 
Permitted 



j Detail Entries 



4- 



Execution of Program 
^ ^_^ 

Mainline Program] Inquiry Program 



■+- 



+- 



MAINPRG=YES , INQPRG=YES 



Yes 



Yes 



Yes 
(Mainline only) 



MAINPRG=YES 



Yes 



No 



Yes 



INQPRG=YES 



Yes* 



Yes 



No 



ATENT=YES 



Yes 



No 



No 



No Operand or no 
DTFBG Statement 



Yes 



No 



No 



j+ A program specified as an inquiry program may also be executed as a 
I mainline program. When the program is loaded as a mainline program, 
I a warning halt occurs. The operator may continue the job if the 
I Monitor input area is not used in the program. 

L 



•Figure 



Detail Entries of the DTFBG Statement 
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Enter both operands if the program is to be 
executed as both mainline and inquiry pro- 
gram. If you specify these two detail 
entries, do not use the IQIPT macro 
instruction to process data in the inquiry 
input area in the Monitor. A record is 
read into this area only if the program is 
used as an inquiry program, but not if it 
is executed as a mainline program. 



Note; The main- storage requirements of the 
problem program increase if you specify 
iyiAINPRG=YES , INQPRG=YES . 

File protection is provided in the Open 
and Close routines for programs assembled 
with the specification 

iyiAINPRG=YES,INQPRG=YES. For details refer 
to the section The Inquiry Program . 



ATENT=YES 

Specify the ATENT entry if you provide your 
own ATENT subroutine in the problem pro- 
gram. (For details on the ATENT subroutine 
refer to the section The ATENT Routine ) . 
You can enter this subroutine by pressing 
the Request key on the printer-keyboard. 

Since a program using the ATENT=YES 
entry does not allow inquiry interrupts, do 
not specify iyiAINPRG=YES and/or INQPRG=YES 
together with ATENT=YES. An error occurs 
if you specify ATENT=YES and INQPRG=YES. 
Specifying I4AINPRG=YES and ATENT=YES leads 
to ignoring the MAINPRG entry. 



No Operands Specified 

Specifying the DTFBG statement without an 
operand has the same effect as not speci- 
fying a DTFBG statement at all, i.e., the 
object program can be used only as a main- 
line program that does not allow inquiry 
interrupts. All inquiry requests are 
rejected, and no protection is incorporated 
in the Open routines for disk files. 

This option is recommended to minimize 
the main-storage requirements of the object 
program if the installation does not use 
the inquiry function. 



DTFEN Statement 

To indicate that all files have been 
defined you must issue a DTFEN statement as 
the last file definition statement in the 
problem program. The DTFEN statement has 
the following format. 

r T T 1 

I Name I Operation I Operand | 

|. 1 1 _ ^ 

I 1 DTFEN I [OVLAY] | 

L J. . X J 

The name field of a DTFEN statement must be 
blank. The opei^ation field contains DTFEN. 
The operand field may be blank, or it may 
contain OVLAY (overlay) . The overlay tech- 
nique as described in the section Program- 
ming Considerations allows you to reduce 
the number of main storage positions 
required by the program when magnetic tape 
or disk files are involved. 
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Instructions for Opening and Closing Files 



This section discusses the macro instruc- 
tions required to activate and deactivate a 
file, and the actions the IOCS performs 
when a file is opened or closed. 

Before the first record can be read from 
any input file or transferred to any output 
file by IOCS macro instructions, you must 
ready that file by issuing an OPEN macro 
instruction. Likewise,, you must deactivate 
the file and terminate all pending requests 
by issuing a CLOSE macro instruction after 
all records of that file have been proc- 
essed. The OPEN and CLOSE macro instruc- 
tions are described below. 

OPEN MACRO INSTRUCTION 

The format of the OPEN macro instruction is 
as follows: 

r T ¥ 1 

I Name 1 Operation] Operands | 

j. 1 ^. ^ 

I [name] | OPEN | f ilenarael, . . . , f ilenarael6 ] 

L X X J 

Each specification in the operand field 
is the name of a file (assigned to it by an 
entry in the name field of the appropriate 
file definition statement) to be opened 
with this macro instruction. Any number of 
files from one to sixteen on various devi- 
ces may be opened with one OPEN macro 
instruction. The operations performed 
depend on the type of device involved and 
the labeling technique (if applicable). 

For information on label processing and 
label formats refer to the SRL publication 
IBM System/360 Model 2Q, Disk Programming 
System, Control -and Service Programs , Form 
C24-9006. 

The actions the OPEN macro instruction ' 
performs for the different devices are 
described in this section under Initializ- 
ing Files . 



CLOSE MACRO INSTRUCTION 

Use this macro instruction to deactivate 
any file that was previously made available 
by an OPEN macro instruction. You can 
close a file at any time by issuing a CLOSE 
macro instruction. You must issue the 
CLOSE macro instruction after all records 
in an input file or output file have been 
processed. When writing your own Exit 
routines,, make sure that you close your 
files properly in these routines before you 
abort the job. 



r T T 1 

[Name | Operation [Operands ] 

J. 1 1 ^ 

1 [name] | CLOSE ] f ilenamel, . . . ,f ilenamel6 | 

L X X J 

Each operand is the name of a file to be 
closed by this macro instruction; the name 
of a file is the symbol appearing in the 
name field of the header entry for the file 
definition stateixient that describes the 
file. You may close up to 16 files for 
various devices with one CLOSE macro 
instruction. The operations performed 
depend on the type of device involved and 
the labeling technique (if applicable). 
For information on label processing and 
label formats refer to the SRL publication 
IBM Svstem/360 Model 20, Disk Programming 
System, Control and Service Programs , Form 
C2U-9006. 

The operations the CLOSE macro instruc- 
tion performs for the different devices are 
discussed in this section under Terminating 
Files. 



Heopening Closed Files 

CARD AND PRINTER FILES. If you issue a 
CLOSE macro instruction for a card or prin- 
ter file, that file cannot be reopened by a 
subsequent OPEN macro instruction. 

PRINTER- KEYBOARD FILE. A printer-keyboard 
file that has been closed can be reopened. 

MAGNETIC TAPE FILE. If further processing 
of a magnetic tape file is desired, the 
file can be reopened. If you do this, keep 
in mind that the previous CLOSE for the 
file has caused the tape to be positioned 
in accordance with the rewind option speci- 
fied in the DTFMT statement for the file. 
Therefore, you should specify REWIND=NORWD 
in the DTFMT statement to resume processing 
of tape records at the point where the 
CLOSE macro instruction occurred. The 
first record read from the reopened file 
must be a file label if standard labels are 
specified for that file. If the tape file 
to be reopened is unlabeled or contains 
non-standard labels,, you must determine 
whether the first record read is a data 
record or a file label. 

If you reopen a multi-volume tape file 
for which you included the detail entry 
ALTTAPE in the DTFMT statement, the IOCS 
continues to read from (or write in) the 
same volume that was used as input (or 
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output) tape at the time the file was 
closed, i.e., only the volume which was 
processed last is reopened. 

DISK FILE. You can reopen a closed disk 
file. If this is done, the IOCS performs 
all checks as though the file had never 
been opened before. 



Initializing Files 

This section describes the processing the 
IOCS performs for the various types of 
files when an OPEN macro instruction is 
executed. 



OPENING CARD FILES 



the IOCS regards this as an error condi- 
tion. However, an unlabeled file can be 
opened in the middle without causing an 
error condition. 

When two or more files of a multi-file 
tape volume are to be processed by one 
problem program, processing of each file 
specified must be completed before the next 
file in succession is opened. 

Example : If the first, second, and third 
files of a multi-file tape volume are to be 
processed by one problem program, you must 
write the OPEN instructions for these files 
in the following sequence: 

OPEN first file 



When an input file is processed in the 
overlap mode, the OPEN macro instruction 
causes the first card to be read. The data 
read from this card can then be moved from 
the input area to the work area when the 
first GET for the file is encountered. 
VJhen an input file is processed in the 
non-overlap mode, the function of the OPEN 
macro instruction depends on the type of 
file as follows. 



CLOSE first file 



OPEN second file 



CLOSE second file 



1. In the case of a simple file, the OPEN 
macro instruction makes the file avail- 
able for processing. 

2. In the case of a combined file, the 
OPEN macro instruction causes the first 
card to be read while it is being moved 
to the pre-punch station. 



OPENING PRINTER AND PRINTER-KEYBOARD FILES 

For a printer or printer-keyboard file, the 
OPEN macro instruction makes the file 
available for processing. The OPEN routine 
also tests whether the Monitor includes the 
PIOCS routines for the printer-keyboard. 



OPENING MAGNETIC TAPE FILES 

When a magnetic tape file with standard 
labels is opened, the IOCS expects the 
first record read to be a label. An OPEN 
macro instruction causes the tape to be 
rewound prior to processing, unless you 
prevent rewinding by including REWIND=NORWD 
in the DTFMT statement for the file. If 
you specified REWIND=NORWD, or if you open 
a file that begins at some location within 
a volume (reel of tape) , you can position 
this volume at the beginning of the 
required file by means of a FILES control 
statement submitted to the Job Control 
program. When a volume has been positioned 
in this manner, the first record read is a 
label. If the first record is not a label. 



OPEN third file 



CLOSE third file 

The concurrent processing of two or more 
files of a multi-file tape volume is not 
possible. 

All files in a multi-file volume must 
either contain the same type of labels 
(either standard or non-standard) or no 
labels whatsoever. 



Opening Tape Input Files 

The processing done by the IOCS when an 
OPEN macro instruction is executed depends 
on whether the file has standard labels, 
non-standard labels, or no labels. An OPEN 
macro instruction causes the following: 

1. If standard labels are specified, the 
IOCS will: 

a. read and check the volume label if 
the tape is at load point; 

b. bypass any user volume labels; 

c. read and check the standard file 
header label (HDRl) ; 

d. bypass any additional standard 
header labels (HDR2-HDR8) ; 
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e. test the user labels UHL1~UHL8 (if 
you specified your own label 
routine) and make them available to 
your label routine as they are 
read. If you did not specify your 
own label routine, the user labels 
(if present) are skipped; and 

f. properly position the tape to read 
the first data record. 

If the file is to be read backward, the 
IOCS performs steps e, d, and c, in 
this sequence; steps a and b are omit- 
ted. (The IOCS processes trailer 
labels instead of header labels) . 

If you specify non-standard labels, the 
file is spaced forward to the first 
record following the first tapemark. 
Therefore the non-standard labels must 
be followed by a tapemark. 

If no labels are specified, the first 
record on tape may be a data record or 
a tapemark followed by one or more 
tapemarks. The IOCS reads the record 
and determines whether it is a tape- 
mark. If it is, control is returned to 
the problem program. If the record is 
not a tapemark, it is assumed to be a 
data record, and the tape is backspaced 
by one record. 



properly identify the file. If the file 
labels were originally written by the IOCS, 
the trailer labels will be complete. 

Files with non-standard labels should 
also be positioned so that the tapemark 
following the trailer-label set is the 
first record to be read. Jrlowever, no label 
checking is performed. 

Unlabeled files should be positioned so 
that the first record read will be the 
tapemark after the last record of the file. 
Unlabeled tape files to be read backward 
must have a tapemark as the first record of 
the file (preceding the first data record). 
If this tapemark is not present, no end-of- 
file (EOF) condition is detected and an 
attempt is made to read past the load 
point. 

Specify the NORWD (no rewind) option in 
the file definition statement for the file 
to be read backward. 

O pening Tape Output Files 

The processing done by the IOCS when an 
OPEN macro instruction is executed depends 
on whether or not the file is labeled. An 
OPEN macro instruction causes the 
following: 



1. 



If standard labels are specified, the 
IOCS will: 



Read-Backward Considerations; 9-track tape 
files written on Systera/36 tape units can 
be read backward if they do not contain 
variable-length blocked records; 7-track 
tapes can be read backward if they were 
written on System/360 tape units without 
using the Data Conversion feature. Note 
that 7-track tapes containing format-V 
records have been written using the Data 
Conversion feature and therefore cannot be 
read backward. A file to be read backward 
is limited to one reel. Any tapemark 
sensed while reading data records is con- 
sidered to indicate an end-of-file condi- 
tion. 

When opening a tape file that is to be 
read backward, the job is terminated if the 
first record read is not a tapemark. 

It is your responsibility to properly 
position files that are to be read backward 
prior to issuing an OPEN macro instruction. 
The proper positions are as follows: 

Files with standard labels should be 
positioned so that the first record read 
will be the tapemark following the trailer 
label set^ Because the file trailer label 
is the first label to be checked on a read 
backward operation, this trailer label must 
be complete and contain both the trailer 
and the header information,, except HDR, to 



2. 



a. check for a volume label if the 
tape is at the load point; 

b. read the file header label (if 
present) and check the expiration 
date to make sure that the data on 
the tape is no longer active and 
may be destroyed; in a mult i- file 
volume only the first file is 
checked for the expiration date in 
the header label; 

c. backspace the tape and write the 
new file header label with the 
information supplied by the TPLAB 
statement (refer to the section 
Control Statements) ; and 

d. enter your label routine (if you 
specified one) to allow user header 
labels (UHL1-UHL8) to be created 
and written. 

If no labels are specified, the IOCS 
will perform the rewind operation and 
write a tapemark as the first record on 
the tape. The volume label and the 
expiration date are not checked, and 
any existing label set is destroyed. 

Note: The writing of a tapemark may be 
suppressed by a TPMARK=NO entry in the 
DTFMT statement. 
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3. If non-standard labels are specified 
for a file/ a diagnostic message is 
printed during assembly because the 
specification of non-standard labels 
for an output file is not permitted. 



OPENING DISK FILES 

When disk files are opened, the processing 
done by the IOCS depends on whether the 
file is a sequential file, a direct-access 
file, or an indexed-sequential file. 
Depending on the type of file, the label 
processing may occur at different times 
during the execution of the problem pro- 
gram. 

For sequential files, each disk pack of 
the file is opened when it is required. 
For direct-access files and indexed- 
sequential files, all packs of the file are 
opened at one time; if this is not done, 
the job cannot continue. Details of the 
processing performed when each type of file 
is opened are described below for disk 
input and disk output files. 

You must specify the disk storage areas 
used by the file by means of XTENT 
statements which you submit to the Job 
Control program. For detailed information 
about these statements, refer to the SRL 
publication IBM System/360 Model 20, Disk 
Programming System, Control and Servic e 
Programs , Form C 24- 9006. 

Note: If a program is to be executed as an 
inquiry program, you must follow special 
rules for opening disk files. These rules 
are described in the section The Inquiry 
Program . 

Opening Disk Input Files 

An OPEN macro instruction causes the fol- 
lowing : 

1. If the file is a sequential file, the 
IOCS will: 

a. locate and check the volume label 
to verify that the proper disk pack 
is mounted; 



During processing, these extent 
limits are used to check for end- 
of-extent conditions and to 
automatically switch to the next 
extent when an end-of -extent condi- 
tion occurs. If an end-of-volume 
condition is detected (no more 
extents available within the 
volume) , the file processing rou- 
tines issue an internal OPEN for 
the next volume. The functions for 
this internal OPEN are the same as 
described above. 

If the file is a direct-access file, 
the IOCS will: 

a. locate and check the volume labels 
of all volumes used for the file to 
verify that the proper disk packs 
are mounted; 

b. locate and check the file labels in 
all volumes of the file against 
data furnished in the DLAB control 
statement; and 

c. make all disk areas (defined by 
XTENT statements) available for 
processing; if one or more areas 
are not available, the job will be 
terminated. 

If the file is an indexed-sequential 
file, the IOCS will: 

a. locate and check the volume labels 
of all volumes used for the file to 
verify that the proper disk packs 
are mounted; 

b. locate and check the format-1 file 
labels in all volumes of the file 
against data furnished in the DLAB 
control statement; 

c. locate and process the format-2 
file label; and 

d. make all disk areas (defined by the 
XTENT statements) available for 
processing; if one or more areas 
are not available, the job will be 
terminated. 



b. locate and check the file label 
against data furnished in the DLAB 
control statement at Job Control 
time; and 

c. check all extent limits in the 
format-1 file label and, if appli- 
cable, in the format-3 file label 
against the limits specified in the 
XTENT control statement. The 
checked extent limits are stored 
within the processing routines for 
the file that is being opened. 



Opening Disk Output Files 

An OPEN macro instruction causes the fol- 
lowing: 

1. If the file is a sequential file, the 
IOCS will: 

a. locate and check the volume label 
to verify that the proper disk pack 
is mounted; 
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2. 



b. check to make sure that the volume 
table of contents (VTOC) does not 
contain a label with the same file 
identifier as the file to be 
opened; should the file identifier 
be identical, the Open routine 
checks the expiration date to 
determine whether the file has 
expired or not. If it has not 
expired, a halt occurs and the 
operator has the option to erase 
the file or to terminate the job. 



c. check all extents described in the 
VTOC for the particular volume 
against those extents of the file 
that refer to the same volume. If 
an extent overlay is detected, the 
OPEN routines check the expiration 
date of the file to which the over- 
laid extent belongs. If the expi- 
ration date has been reached,, the 
file label (s) of the expired file 
are erased. All labels in the VTOC 
with an address that is higher than 
the addresses of the erased labels 
are shifted to use up the space 
that was previously occupied by the 
erased labels. The program halts 
if an extent overlay is detected 
for an active file. This allows 
you to either erase the file or 
terminate the job, 

d. cause the format-1 label and,, if 
more than three extents are speci- 
fied, the format-3 label (s) to be 
created and written behind the last 
label in the VTOC. If no space is 
available within the VTOC, a pro- 
grammed halt occurs. 

e. store the checked extent limits 
within the processing routines for 
the file that is being opened. 
During processing, these extent 
limits are used to check for end- 
of-extent conditions and to 
automatically switch to the next 
extent when an end-of- extent condi- 
tion occurs. If an end-of-volume 
condition is detected (no more 
extents available within the 
volume) , the file processing rou- 
tines issue an internal OPEN for 
the next volume. The functions for 
this internal OPEN are the same as 
described above. 



If the file is a direct-access or an 
indexed-sequential file, the IOCS will: 

a. locate and check the volume labels 
of all volumes to be used for the 
file to verify that the proper disk 
packs are mounted; 



b. check to make sure that the VTOC 
does not contain a label with the 
same file identifier as the file to 
be opened; should the file iden- 
tifier be identical, the IOCS 
checks the expiration date to 
determine whether the file has 
expired or not. In the case of an 
indexed-sequential LOAD file, a 
halt occurs if the file is not 
expired. The operator then has the 
option to extend the file or to 
perform an original load. 

c. check all extents described in the 
VTOCs of all volumes used by the 
file against all the extents speci- 
fied for the file; if an extent 
overlay is detected,, the OPEN rou- 
tines check the expiration date of 
the file to which the overlaid 
extent belongs. If the expiration 
date has been reached,, the file 
labels of the expired file are 
erased. All labels in the VTOC 
with an address that is higher than 
the addresses of the erased labels 
are shifted to use up the space 
that was previously occupied by the 
erased labels. The program halts 
if an extent overlay is detected 
for an active file. This allows 
you to either erase the file or 
terminate the job. 

d. cause the format-1 label and, if 
more than three extents are speci- 
fied, the format-3 label (s^ to be 
created and written after the last 
label in the VTOC. In the case of 
an indexed-sequential file, the 
IOCS will also cause the format-2 
label to be created and written. 
The program halts if no space is 
available within the VTOC. 

e. store the checked extent limits 
within the processing routines for 
the file that is being opened. 
(During processing, these extent 
limits are used to check for end- 
of-extent conditions and to 
automatically switch to the next 
extent when an end-of-extent condi- 
tion occurs.) 



Terminating Files 

After all records of a file have been pro- 
cessed, that file must be closed. 

The need to close, or deactivate, a file 
is indicated by an end-of-file (EOF) condi- 
tion. The EOF condition is determined in 
various ways for different types of files 
and I/O devices as follows: 
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1. Card input files . Four cards with the 
characters /* in columns 1-2 are 
required by the IOCS to properly per- 
form end-of-file operations. For the 
number of /+ cards required during 
stacked job processing, refer to Figure 
11. 

2 . Printer-Key b oard input files . The 
characters /+ typed in on the printer- 
keyboard indicate the end-of-file 
condition. 

3. Tape input f i les without labels or with 
non-standard labels . A tapemark indi- 
cates an EOF condition. In your end- 
of-file routine you must determine 
whether an end-of-file or an end-of- 
volume condition exists. The IOCS 
cannot determine this. 

4 . Tape input files with standard labels . 
The characters EOF appear as the first 
three characters of a trailer label. 

5. Tape files with standard labels that 
are read backwards . The characters HDR 
appear as the first three characters of 
a header label. 

6. Sequential disk input files or indexed- 
sequential i nput files processed 
sequentially . The characters /+b 
appear in an end-of-file record, or the 
end of the last extent has been 
reached. 

7 . All output f iles, and direct-access 
input files . The problem program de- 
termines the end of a file. 



End-of-File Processing 

When EOF occurs in a card input file, the 
IOCS branches to your end-of-file routine. 
The address of this routine must be provid- 
ed in the EOFADDR=name entry of the defini- 
tion statement for the file. 

When EOF occurs in a tape input file 
with standard labels, the IOCS branches to 
the label checking routine to check the 
EOFl label. In this routine, the IOCS 
compares the block count recorded in the 
label with the block count that has been 
accumulated during processing. An 
'unequal' condition is indicated to the 
operator who has the option to either ter- 
minate or continue the job. If user labels 
(UTL1-UTL8) are to be checked, the IOCS 
branches to the LABADDR routine when the 
checking of the EOFl label has been com- 
pleted. (Refer to the description of the 
DTFMT detail entry LABADDR and of the LBRET 
macro instruction in the section Instruc- 
tions for Processing Magnetic Tape Files ) . 
After all trailer labels have been checked, 
the IOCS branches to the EOFADDR routine. 



If the tape input file has been read 
backward, the functions performed by the 
IOCS are essentially the same. On reaching 
the tapemark preceding the first record of 
the file, the IOCS branches to check the 
user header labels (UHL1-UHL8), if present, 
and then checks the HDRl label. After 
these checks are completed, the IOCS 
branches to the EOFADDR routine. 

When EOF occurs in a tape input file 
without labels or with non-standard labels, 
the IOCS branches to the EOFADDR routine 
when the tapemark following the last data 
record is read. 

When EOF occurs in a sequential disk 
input file or in an indexed-sequential file 
processed sequentially, the IOCS branches 
to the EOFADDR routine when the EOF record 
containing /*b is read, or the end of the 
last extent has been reached. 



End-of-Volume Processing 

Some of the actions performed 
routine are also required when 
volume condition occurs while 
magnetic tape or sequential-di 
Except for tape input files wi 
or with non-standard labels, t 
detects EOV conditions and tak 
required actions without the n 
tional routines in the problem 
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During the processing of a magnetic tape 
file or of a sequential disk file, an EOV 
condition can occur. This indicates that 
the next volume of the same file is needed 
either for reading more input records or 
for writing more output records. The meth- 
od of detecting an EOV condition and the 
action taken are described below. 

TAPE EOV CONDITION: The end of a volume of 
a standard- labeled tape file is indicated 
in the trailer label of an input reel or by 
the reflective marker on an output reel. 
The IOCS processes an EOV condition as 
follows: 

1. For input files, the IOCS (1) checks 
the block count, (2) branches to your 
LABADDR routine, if specified, and (3) 
rewinds the tape if required. The IOCS 
then processes the header label (s) of 
the next volume and makes the first 
record of the volume available to the 
problem program. 

2, For output files, the IOCS causes the 
EOV trailer label (including the accu- 
mulated block count) to be written. If 
a LABADDR routine is specified, the 
IOCS branches to this routine to write 
additional user trailer labels 
(UTL1-UTL8) and to perform the func- 
tions as specified. The IOCS then 
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processes the header label (s) of the 
next volume as described above under 
O pening Tape Output File s. 

If no labels or non-standard labels have 
been specified for an input file, you inust 
determine an EOV condition and issue an 
FEOV macro instruction (refer to the sec- 
tion Instructions for Processing Magnetic 
Tape Files ) to have the IOCS perform the 
desired end-of- volume functions. To deter- 
mine an EOV condition, you must provide in 
your EOFADDR routine a subroutine to which 
the IOCS branches as soon as it detects a 
tapemark. For multi-volume files, refer to 
the description of the detail entry 
ALTTAPE . 

DISK EOV CONDITIONS: The end-of -volume for 
sequential disk files is indicated after 
the contents of all disk areas in a volume 
(as specified in XTENT control statements) 
have been processed. The IOCS processes 
EOV conditions as follows: 

1. For input files,, the IOCS checks the 
file label (s) of the next vblume and 
makes the first record in the next 
volume available for processing. 

2. For output files, the IOCS checks 
whether or not any extents are over- 
laid, writes a volume label and one or 
more file labels on the next volume, 
and makes the first location in that 
volume available for an output record. 



CLOSING CARD AND PRINTER FILES 

For card and printer files, the CLOSE macro 
instruction makes the file unavailable for 
further processing. Specifically, the 
CLOSE macro instruction ensures: 

1. that records remaining in the output 
area upon completion of processing are 
printed and/or punched, 

2. that all processed data cards remaining 
in the card feed path (not end-of-file 
cards) are selected and sorted into the 
appropriate stackers, 

3. that all pending interrupts for the 
closed file(s) have been handled. 



CLOSING PRINTER- KEYBOARD FILES 

You should close a printer-keyboard input 
or output file after all records in the 
file have been processed. The characters 
/* in the first two positions of the record 
designate the end-of-file for an input 
file. For an output file,, end-of-file is 
determined by the problem program. 



CLOSING MAGNETIC TAPE FILES 

The operations performed when a magnetic 
tape file is closed depend upon whether ii 
is an input or an output file. 



Closing Tape Input Files 

The CLOSE macro instruction causes the 
input tape to be rewound if this has been 
specified in the REWIND entry of the DTFMT 
statement for the file. The IOCS then 
deactivates the file; no labels are read or 
checked. 



Closing Tape Output Files 

The CLOSE macro instruction causes the 
writing of any record or block of records 
that has not yet been placed into the file. 
If a record block is only partially filled, 
it will be written on tape as a short 
block. A tapemark is written following the 
last record. 

If labels have not been specified, a 
second tapemark is written and the tape is 
rewound if this has been specified in the 
DTFMT statement for the file. 

If standard labels have been specified 
for the file, the IOCS writes the trailer 
label after the tapemark. The trailer 
label includes the block count accumulated 
by the IOCS during the run and the header 
label information (except that HDR is 
replaced by EOF) . 

When additional labels are to follow the 
standard trailer label, the IOCS branches 
to your label routine specified by the 
LABADDR=name entry in the DTFMT statement 
for the file. This occurs after the stand- 
ard label has been V7ritten. After building 
each label, return to the IOCS using the 
LBRET macro instruction. After all trailer 
labels have been written, the IOCS writes 
two tapemarks, executes the rewind func- 
tion, if specified, and deactivates the 
file. 

Two tapemarks are written at the end of 
a tape output file to indicate that no 
further data follows. If you specified 
REWIND=NORWD for the file, the IOCS causes 
the tape to be backspaced by one record. 
As a result, the second tapemark is over- 
written if another output file is written 
onto the same tape. 



CLOSING DISK FILES 

The operations performed when you close a 
disk file depend upon whether it is an 
input or an output file. 
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Closing Disk Input Files 

The CLOSE macro instruction merely makes 
the file unavailable for further process- 
ing . 



lov7ing the last data record in the file. 
The CLOSE macro instruction also updates 
format- 2 labels when you load or extend an 
indexed-sequential file or when you add 
records to it. 



Closing Disk Output Files 

The CLOSE macro instruction causes the 
writing of any record or block af records 
that has not yet been placed onto disk. 
The IOCS writes an end-of-file record fol- 



Mote; In a mainline program that permits 
inquiry interrupts, you must provide for 
the closing of all disk input and output 
files. Details on closing files in a main- 
line program are given under File Protec- 
tion in the section The Inquiry Program . 
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Instructions for Processing Card Files 



The IOCS provides routines for sequentially 
processing card files. All records in a 
card file must be unblocked format- F 
records with a maximum length of 8 card 
columns. 

You must define a card file in the? prob- 
lem program using the DTFSR file definition 
statement, which is described in detail 
below. The discussion of the DTFSR state- 
ment is followed by a description of the 
imperative macro instructions supported for 
card input and output files. 



If two I/O areas are used for a file 
(lOAREAl and I0AREA2), specify the area 
size only once because it applies to both 
areas. The maximum area length acceptable 
to the IOCS is 80 bytes (160 bytes if the 
input is in column binary mode). 

The minimum area length specifications 
are: 



For input files 
For output files 



two bytes (four bytes for 
column binary mode) 
one byte. 



DTFSR Statement 

This file definition statement applies to 
card and printer files. The name field of 
the header entry must contain the name for 
the file, and the operation field must 
contain DTFSR. 



CONTROL=YES 

Specify this detail entry if you intend to 
issue a CNTRL macro instruction for your 
card file. The CNTRL macro instruction 
causes the I/O device to perform stacker 
selection. 



The header entry is followed by detail 
entries. For ease of reference, the detail 
entries for card files are described below 
in alphabetical order. 



BINARY=code 

Specify this entry if the cards are to be 
read in the column binary mode. You may 
provide the entry for both simple and com- 
bined files. 



Code 

YES 
INPUT 



Type of File 
Simple input file 
Combined file 



The twelve punch positions of a card 
column read in column binary mode are 
stored in the six low-order bits of two 
adjacent bytes of the input area. There- 
fore, the input area must be large enough 
to accommodate a number of bytes that is 
twice the number of card colamns to be 
read. 

When you use the BINARY entry for a 
particular file,, you are not allowed to 
specify the entries SEQNCE and RFORMTn for 
the same file. 



CRDPRA=name 

Use this entry in conjunction with CRDPRLn 
entries when printing on cards is desired. 
The maximum number of lines that can be 
printed at one time is six, i.e., the num- 
ber of print heads available. 



The CRDPRA entry specifies 
the area in main storage that 
data to be printed by the lowe 
MFCM print head. Define conti 
areas from which the remaining 
are to print (refer to Figure 
CRDPRLn entries serve to defin 
heads to be used in ascending 
ing to the print head numbers, 
shows the detail entries requi 
printing from the areas shown 
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It suffices to specify the CRDPRA and 
CRDPRLn entries in only one DTFSR statement 
of a program because they do not refer to a 
particular ^ile. You must issue a CRDPR 
macro instruction to cause printing of data 
from the areas specified in the CRDPRA and 
CRDPRLn entries. Refer to the description 
of the CRDPR macro instruction in this 
section. 



BLKSIZE=n 



CRDPRLn=m 



This entry specifies the length of the I/O 
area(s) to be used by a simple file. The 
value of n must be equal to or less than 
the number of bytes of the area reserved by 
the DS or DC statement in the source pro- 
gram. 



Entries of this type are used in conjunc- 
tion with the CRDPRA=name entry to specify 
the print heads used. You must specify one 
CRDPRLn entry for each print head you use, 
i.e., you can specify up to six CRDPRLn 
entries. 
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The keyword is CRDPRLn, where n is the 
number of the print head (1 to 6). The 
specification m indicates to the IOCS the 
number of bytes to be printed by this print 
head. Specification of the number of bytes 
to be printed by each individual print head 
is required because, when filling a print 
area with data to be printed, the IOCS 
moves into the print area only the number 
of bytes specified for the particular print 
head. 



Refer to the example in Figures 9 and 
10. In this example, print head 1 is to 
print the first 50 bytes of its 64-byte 
print area, print head 2 is to print the 
first 40 bytes of its 64-byte print area, 
and print head 5 is to print the first 20 
bytes of its 64- byte print area. However, 
all three print heads actually print the 
first' 50 bytes of their 64-byte print 
areas, i.e., the largest number of bytes 
specified for a particular print head. At 
the time of printing, the unused byte posi- 
tions of a print area contain blanks, since 
the IOCS clears all print areas up to and 
including byte 5 (i.e., the largest number 
of bytes specified) to blanks after every 
card-print operation. 



You may utilize those portions of the 
print areas that are not cleared by the 
IOCS. In the example, bytes 51 through 6 4 
of all three 64-byte print areas could be 
used for other processing (shaded areas in 
Figure 9) . 



■CPAR 




64 Bytes 



64 Bytes 



64 Bytes 



■b = blank 

Figure 9. MFCM Card-Print Areas 



Column 16 




Code Explanation 

CRP20 A file is to be read and/or 

punched by the IBM 2 5 20 Card Read- 
Punch. 

MFCMl A file is to be read and/or 

puifiched from the primary feed of 

the IBM 2560 Multi-Function Card 
Machine. 

MFCM2 A file is to be read and/or 

punched from the secondary feed of 
the IBM 2560 Multi-Function Card 
Machine. 

PUNCH20 A file is to be punched by an IBM 
2520 Card Punch. 

PUNCH42 A file is to be punched by an IBM 
14 42 Card Punch, Model 5, 

READOl A file is to be read by an IBM 
2 501 Card Reader. 



EOFADDR=name 

This entry specifies the symbolic name of 
the routine in the problem program to which 
the IOCS should branch on an end-of-file 
condition. In that routine, you can per- 
form any operation required for the end of 
the job. Normally, a CLOSE macro instruc- 
tions is issued. 



Note; If, in the end-of-file routine, you 
want to terminate the execution of a main- 
line program, you must first close all disk 
files. The EOFADDR entry is mandatory for 
card input and combined files. 



The IOCS recognizes an end-of-file con- 
dition for card input and combined files 
when the required number of end-of-file 
cards (/* in columns 1 and 2) have been 
read. During single- job processing, use 
four end-of-file cards for all card I/O 
devices to ensu^re that the device remains 
in a ready status after end-of-file is 
detected. The number of end-of-file cards 
required during stacked-job processing is 
device dependent as shown in Figure 11. 



Figure 10. CRDPRA Detail Entry with 
CRDPRLn Entries 



DEVICE=code 

This entry, which is required for all card 
files, specifies the I/O device to be used 
to process the particular file. Enter one 
of the following specifications immediately 
after the equal sign (=) in this entry. 



r T T T ' T 1 

1 1 I 2501 1 2501 1 1 
I MFCMl I MFCM2 | one I/O | two I/O \ 2520 1 
1 1 1 area ] areas | j 
1- + 1 1 1 ^ 

12 12 1 11 2 111 

L J. X X X J 

Figure 11. Number of End-of-File Cards 
Required During Stacked-Job 
Processing 
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INAREA=narne 



OU ARE A= name 



This entry specifies the name of the input 
area to be used by a combined file. The 
specified name must be the symbol used in 
defining the area in the source program. 



INBLKSZ=n 



This entry is used in conjunction with the 
INAREA entry and specifies the name of the 
output area used by a combined file. The 
name specified must be the symbol used in 
defining the area in the source program. 

OUBLKSZ=n 



This entry specifies the number of bytes in 
the input area required by a combined file. 
The specified length applies to the area 
reserved by the DS or DC statement in the 
source program and referred to in the 
INAREA entx'y. The maximum area length 
permitted is 80 bytes (160 bytes for column 
binary mode) . The minimum length of the 
input area is two bytes (four bytes for 
column binary mode) . 



I0AREA1= name 

This entry specifies the name of the I/O 
area to be used by a simple file. The 
specified name must be the symbol used in 
defining the area in the source program. 

A work area must be specified in addi- 
tion to an I/O area. Refer to the descrip- 
tion of the WORKA=YES entry. 

I0AREA2=name 

This entry can be used for simple input 
files to specify a second input area when 
the IBM 2501 Card Reader, Model A2, is used 
in overlap mode. The name in the specifi- 
cation part of this entry must be the same 
as the symbol used in defining the area in 
the source program. That area must be of 
the same length as the area referred to in 
the lOAREAl entry. 

The I0AREA2 entry permits a card to be 
read into the area specified in the DTFSR 
entry lOAREAl while the data in the area 
specified in the DTFSR entry I0AREA2 (from 
the preceding card) are waiting to be moved 
to the work area. This may be of signifi- 
cance if only a number of selected ccirds of 
the file that is read on the IBM 2501 
require extensive processing while all 
other cards require very little. If only 
one input area is specified, the data from 
a card that requires extensive processing 
may have to be held available for too long 
a period of time to permit continuous card 
feeding. In the majority of cases, speci- 
fying a second input area permits the IOCS 
to maintain the maximum card reading speed 
of the IBM 2501. 

Do not use the I0AREA2 entry for a file 
being read or punched by any other card 
input or output device or when the IBM 2501 
is used in non-overlap mode. 



This entry is used in conjunction with the 
OUAREA entry to specify the length of the 
output area required by a combined file. 
The specification n is the number of bytes 
in the area. The maximum area length per- 
miitted is 8 bytes. The minimum length of 
the output area is one byte. 



OVERLAP=NO 

This entry specifies that the file is to be 
processed in non-overlap mode. If this 
entry is omitted, the file is processed in 
overlap mode. 

When the OVERLAP=NO entry is used, the 
IOCS routines that are inserted in the 
problem program at the time of assembly 
require less storage space than they 
require when this entry is omitted. 



PFORMTn=xxyy 

This entry applies to combined files only. 
It allows you to check a specified field 
(or fields);, in which data is to be 
punched, for all blanks. These fields are 
checked in those cards of a combined file 
that are not read but only punched. 

The keyword of this entry is PFORMTn, 
where n is any number from to 9 . The n 
allows you to write up to ten different 
PFORMTn entries per file and thus have a 
maximum of ten fields checked. The xx 
specifies the first and the yy the last 
card column of the field to be checked. 
For columns 1 through 9, the leading zero 
is required. 

If the field does not contain all 
blanks, the PUT macro instruction is not 
executed. Instead, the IOCS either trans- 
fers control to the routine specified in a 
PFXIT entry or it causes a programmed halt. 



The specified input area must be large 
enough to accommodate the information con- 
tained in the columns specified in this 
entry. 



You may use up to ten different PFORMTn 
entries, but only one PFXIT entry for each 
,f ile. 
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PFXIT=name 



bbb. 



This entry is usea in conjunction with the 
PFORMTn entry. It specifies the name of 
your routine to which the IOCS transfers 
control if the test of the field specified 
by the PFORMTn entry indicates an error 
condition. To return to the main program, 
branch to the address contained in register 
14. 

If a PFORMTn check occurs, the main 
program branches immediately to the PFXIT 
routine. In this case, the contents of the 
work area are not moved to the punch area. 

If a PUT macro instruction is issued 
that refers to a comibined file and the 
program branches to the PFXIT routine, a 
subsequent GET will place the contents of 
the card causing the PFORMTn error into the 
work area. If this GET is in non-overlap 
mode, it is possible to punch this card by 
means of an additional PUT macro instruc- 
tion. 

If the PFXIT entry is omitted and the 
test shows an error condition, the machine 
halts before punching is initiated. This 
enables the operator to remove the card 
that caused the error condition from the 
pre- punch station^. 

RFORMTn=xxyyz 

This entry enables you to check whether a 
specified input card field (or fields) 
contain (s) numeric characters only or all 
blanks. 



where b = blank 

n = numeric character. 

If the ii^put cards are read in overlap 
mode from either an IBM 2520 or an IBM 
2560, an RFORMT error with a subsequent 
branch to your RFXIT routine causes the 
IOCS to change the processing mode (from 
overlap to non-overlap) for the GET that 
detected the error. 

Before branching to the RFXIT routine, 
the IOCS places the record containing the 
field that led to the error condition into 
the work area. If the error card was read 
by the IBM 2560 MFCM or the IBM 2520 Card 
Read-Punch, that card is positioned at the 
pre-punch station. The next record will be 
read by the next GET or EOM macro instruc- 
tion. 

In the RFXIT routine, save the contents 
of register 14 before issuing any macro 
instruction. If this is not done the re- 
entry address is lost during the execution 
of the macro instruction in the RFXIT 
routine. 

You may use up to ten different RFORMTn 
entries, but only one RFXIT entry for each 
file. 

If a SEQNCE error and an RFORMTn error 
are both detected in the same card, only 
the action specified for the SEQNCE error 
will be performed. Refer to the descrip- 
tion of the SEQNCE=xxyy entry. 

RFXIT=name 



If the input data are to be read in the 
column binary mode, an RFORMT entry must 
not be included for the file. 

The keyword of this entry is RFORMTn, 
where n is any number from to 9. The n 
allows you to write up to ten different 
RFORMTn entries per file and thus have a 
maximum of ten fields checked. The xx 
specifies the first and the yy the last 
card column of the field to be checked. 
For columns 1 through 9, the leading zero 
is required. If the field is to be checked 
for blanks, z must be a zero (0). If the 
field is to be checked for numeric charac- 
ters, z must be a one (1). When checking 
for numeric characters, the maximum field 
length is 16 columns. 

When a field is tested for all blanks, 
control is transferred to your RFXIT rou- 
tine if the field is not blank. 

When a field is tested for numeric char- 
acters, the test fails if the field con- 
tents are not of the following format 
(where at least the last character is 
numeric v/ith or without an 11 or 12 zone 
punch) : 



This entry is 
RFORMTn entry 
routine to wh 
ferred if the 
in the RFORMT 
tested field 
blanks or num 
return to the 
address conta 



used in conjunction with the 
Specify the name of the 
ich control is to be trans- 
test of the field specified 
n entry is negative (i.e., the 
contains characters other than 
erics, respectively) . To 

main program, branch to the 
ined in register 14. 



If this entry is omitted and the test is 
negative, the IOCS causes a prograram.ed 
halt. This enables the operator to replace 
the card that led to the error condition. 

SEQNCE=xxyy 

This entry enables you to check whether the 
contents of a specified field in successive 
input records are equal or in ascending 
order. 

The XX is the first and the yy the last 
card column of the card field to be 
checked. For card columns 1 through 9, the 
leading zero is required. The maximum 
length of the card field to be checked is 
16 columns. 
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Only one SEQNCE entry is permitted for 
each file. If the input data is to be read 
in column binary mode, a SEQNCE entry must 
not be included for the file. 



If the input cards are read in overlap 
mode from either an IBM' 2520 or an IBM 
2560, a sequence error with a subsequent 
branch to your SEQXIT routine causes the 
IOCS to change the processing mode (from 
overlap to non-overlap) for the GET that 
detected the error. 

Before branching to the SEQXIT routine., 
the IOCS places the record containing the 
field that led to the error cond.".tion into 
the work area. If the error card was read 
by the IBM 2560 MFCM or the IBM 2520 Card 
Read-Punch, it is positioned at the pre- 
punch station. The next GET or EOM macro 
instruction will cause -che next record to 
be read. This record will then be compared 
with the record preceding the error record. 



WORKA=YES 

The WORKA=YES detail entry is 
all card files. Enter the na 
area as the second operand in 
or CRDPR macro instructions f 
cular file. The length of a 
always be the same as that of 
For additional information re 
use of a work area,, see Work 



mandatory for 
me of the work 

all GET, PUT, 
or the parti- 
work area must 

the I/O area, 
garding the 
Areas under 



the section Ove3;lappinq and Storage Areae 



Imperative Macro Instructions 

The imperative macro instructions cause the 
desired I/O operation. They are described 
below in the following order: PUT, GET, 
CRDPR, CNTRL, EQM, lOM, WAITC. For the 
description of OPEN and CLOSE refer to the 
section Instructions for Opening and Clos- 
ing Files . 



PUT MACRO INSTRUCTION 



If the SEQXIT routine contains a macro 
instruction, the contents of register 14 
should be saved before this macro 
instruction is executed. If this is not 
done, the re-entry address is lost during 
the execution of the macro instruction. 



If a SEQNCE error and an RFORMTn error 
are both detected in the same card, only 
the action specified for the SEQNCE error 
will be performed. 



SEQXIT=name 

This entry must be used in conjunction with 
the SEQNCE entry. It specifies the name of 
your routine to which control is to be 
transferred if a sequence error occurs. To 
return to the main program, branch to the 
address contained in register 14. 



Note : If the sequence-error routine dis- 
continues the processing of a program that 
is a mainline program, it must contain 
CLOSE macro instructions for all disk 
files. 



TYPEFLE=code 

This entry, which is required for all 
files, is used to specify the type of file 
(i.e.,, input, output, or combined). 



Code Type of File 

INPUT A simple input file. 

OUTPUT A simple output file. 

CMBND A combined file. 



This instruction punches logical records 
that have been built in a specified work 
area. 

r T T 1 

I Name | Operation] Operands 1 

j. 1 1 ^ 

|[name]|PUT | filename, workname | 

L X J. J 

The first operand specifies the name of the 
file,, the second operand specifies the name 
of the work area in which the records are 
built. 

The PUT macro instruction moves the 
record built in the work area to an output 
area. When the output area is full, the 
IOCS will take the data in that output area 
and punch them on the output device speci- 
fied in the DTFSR statement for the file. 

Individual records for a logical file 
may be built in the same work area or in 
different work areas. Each PUT macro 
instruction specifies the work area in 
which the completed record was built. How- 
ever, only one work area can be specified 
in any one PUT macro instruction. 

When a card file is processed in the 
non-overlap mode, a PUT macro instruction 
for the file (1) moves a record from the 
work area to the output area, (2) initiates 
the punch operation (and the next read 
opei^ation in the case of a combined file), 
and (3) transfers control to the main pro- 
gram when the punch operation has been 
completed. 

When a card file is processed in the 
overlap mode, a PUT macro instruction for 
the file (1) moves a record from the work 
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area to the output, area, (2) initiates the 
punch (print) operation, and (3) immediate- 
ly transfers control to the main program. 



If PFXIT has been specified for a com- 
bined file and a card to be punched does 
not contain all blanks in the field to be 
punched, the PUT macro instruction causes 
control to be transferred to the specified 
PFXIT routine. 



r T T '- 1 

I Name | Operation | Operands ] 

^ 1 1 ^ 

I [name] [GET 1 filename, workname | 

L X X J 



The first operand specifies the name of 
the file. The second operand specifies the 
symbolic name of the work area to be used. 



The work area is not cleared by the IOCS 
after a PUT macro instruction. To avoid 
having interspersed characters from preced- 
ing records in the output records, ensure 
that the records use every position of the 
work area, or clear the work area before 
the next record is built. 



Programming Considerations for Combined 
File s 

Assume that a combined file is being proc- 
essed by means of the following sequence of 
instructions : 



GET F1,W1 

no GET, EOM, or PUT 

macro instruction 

■ referring to file Fl 

PUT Fl,W2 

In this case, the following rules apply: 

Non-overlap Mode . The statement PUT F1,W2 
causes punching into the card that has been 
made available by the statement GET F1,W1. 

Overlap lYlode . The statement PUT F1,W2 
causes punching into the card following tlie 
card that has been made available by the 
statement GET F1,W1. The card that has 
been made available by the statement 
GET F1,W1 has already passed the punch 
station when the statement PUT F1,W2 is 
encountered. 



GET MACRO INSTRUCTION 

This macro instruction makes the next 
sequential logical record from an input 
file available for processing in a speci- 
fied work area. 



The GET macro instruction moves the 
record to be processed from an I/O area to 
the work area specified by the second 
operand. There can be more than one work 
area for a file. 

All records from a card file may be 
processed in the same work area, or differ- 
ent records from the same file may be proc- 
essed in dif;Eerent work areas. In the 
first case, each GET macro instruction for 
the file specifies the same work area. In 
the second case,, different' GET macro 
instructions specify different work areas. 
It might be advantageous to plan two work 
areas, and to specify each area in alter- 
nate GET macro instructions. This permits 
the comparison of each record with the 
preceding one to determine a possible 
change of the control level. Jowever, only 
one work area can be specified in any one 
GET macro instruction. 

When a card file is processed in the 
non-overlap mode., a GET macro instruction 
for the file (1) initiates the reading of 
the next record, (2) moves the data fromi 
the input area to the work area when the 
read operation is complete, and (3) trans- 
fers control to the main program. When a 
card file is processed in the overlap mode, 
the GET macro instruction for the file (1) 
moves a record, as soon as it is available, 
from the input area into the work area, (2) 
initiates the next read operation, and (3) 
immediately transfers control to the main 
program. 

When a combined file is processed and 
data are to be punched into the input 
cards, use one of the programming methods 
described in this section in the discussion 
of the LOM macro instruction. Also refer 
to Programming Considerations for Combined 
Files in the preceding description of the 
PUT macro instruction. 



When a branch condition is detected 
<end-of-f ile, sequence check, or read- 
format check) , the IOCS transferred control 
to the appropriate routine specified in the 
EOFADDR, SEQXIT, or RFXIT entry of the file 
definition statement. 



CRDPR MACRO INSTRUCTION (IBM 256 MFCM) 

This macro instruction (CaRD PRint) applies 
only to an IBM 2560 MFCM equipped with the 
card-print feature. The format is as fol- 
lows : 
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r T T T 

jName ] Operation ] Operands | 

^ 1 1 ^ 

I [name] ] CRDPR ] ,worknanie,printarea | 

L X . 1 J 

Because this instruction does not refer 
to a specific file, it does not have a file 
name as operand 1; the absence of this 
operand is indicated by a comma. The sec- 
ond operand is the name of the work area, 
and the third operand is the name of the 
card-print area. 

A CRDPR macro instruction moves one line 
of information from the specified work area 
to the card-print area. However, printing 
does not take place until the card is being 
moved into and through the print steation by 
the execution of a subsequent GET, PUT, or 
EOM macro instruction. It is therefore 
very important to write the CRDPR macro 
instruction in proper relationship to PUT, 
GET, or EOJMi macro instructions pertciining 
to the same card. The same rules that 
apply to the stacker-select CNTRL macro 
instruction for the IBM 2560 MFCM are also 
applicable to the CRDPR macro instruction 
(see No File Name Specified under Stac ker 
Selection (SS) for the IBM 2560 MFCM ) . 

You must write one CRDPR macro instruc- 
tion for each line to be printed. If two 
CRDPR macro instructions are issued for the 
same line, only the second one will be 
executed. At the time of printing, all 
print lines, i.e., up to six, are printed 
simultaneously. It is not possible to 
print only with print head 1 during one 
print operation and then with print head 2 
and/or another print head during another 
print operation. If no data is to be 
printed on a line, simply do not enter any 
data into the associated print area or, if 
processing was perforired in the area, clear 
the area before printing takes place. 



CNTRL MACRO INSTRUCTION 

The CNTRL macro instruction causes stacker 
selection to be performed on the device 
associated with the card file. You must 
include a CONTROL=YES entry in the DTFSR 
file definition statement if you intend to 
issue a CNTRL macro instruction for the 
card file. 



Specify the stacker into which the cards 
are to be selected as third operand (n) . 



Stacker Selection (SS) for the IBM 252 _, 
Model Al and A2 

Either of two stackers can be selected. 
Cards fed into the IBM 2520 normally fall 
into stacker 1. The stacker selection 
mnemonic (SS) is used to select a card into 
the stacker, specified by the third operand 
n in this macro instruction. Specify 1 for 
stacker 1 and 2 for stacker 2. 



If two stacker select CNTRL macro 
instructions are issued for the same file 
before the next GET or PUT macro instruc- 
tion for that file, the second CNTRL macro 
instruction overrides the first. When 
using stacker selection eiisure that the 
instruction is in proper relationship to 
the GET, PUT, or EOM macro instruction 
referring to the card to be selected: 

1. Processing in overlap mod e. The stack- 
er select CNTRL must be the last macro 
instruction preceding the GET or PUT 
that refers to the card to be selected. 
The example below selects the card, the 
contents of which are transferred to or 
from the work area by the GET (or PUT) 
macro instruction. 

CNTRL AAA,SS,n 

no GET or PUT 

referring to file AAA 

GET (or PUT) AAA 

2 . P rocessing in non-overlap mode . Th e 
stacker select CNTRL must be issued 
after the GET macro instruction or 
before the PUT macro instruction that 
moves the card to be selected. 

The example below selects the card read 
by the GET macro instruction. 

GET AAA 

no PUT, GET or EOM 

referring to 

file AAa' 

CNTRL AAA,SS,n 



r T T 1 

I Name ] Operation] Operands I 

j. 1 1 ^ 

I [name] 1 CNTRL | filename, SS, n | 

L J. i . J 

The first operand specifies the name of the 
card file for which the device operation is 
describedi The mnemonic SS indicates that 
stacker selection is to be performed. 



The example below selects the card 
moved by the PUT macro instruction. 

CNTRL AAA,SS,n 

no PUT, GST, or EOM 

referring to 

file AAA 

PUT AAA 
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stacker Selection (SS) for the IBM 256 
MFCM 

Any of five stackers can be selected. 
Since the MFCM connected to a Submodel 4 
has no stacker 5, all cards selected for 
stacker 5 go into stacker U. 






Operands 



filename 



[filename] 



[filename] 



[filename] 



[filename] 



code j n 



SS 1 1 



SS 1 2 



SS i 3 



SS 



Operation 



Select stacker 1 



Select stacker 2 



Select stacker 3 



Select stacker 4 



f- 
1- 
1-- 

[filename] | SS | 5 | Select stacker 5 

L_ i X X 



The CNTRL macro instruction for the IBM 
2560 MFCM has two forms. One form does not 
specify the name of a file, the other does. 
The manner in which the forms of the CNTRL 
macro instruction are used in the problem 
program is different. 



No Filename Specified; When the first 
operand is omitted, the CNTRL macro 
instruction does not specify a file con- 
taining a card to be selected; it merely 
specifies the desired stacker. If the name 
of the file is omitted, its absence must be 
indicated by a comma. Hence, the format of 
the macro instruction is: 

CNTRL ,SS,n 



!• Processing in overlap mode 
card to be selected is pun 
macro instruction or if th 
the card are moved to a wo 
GET macro instruction, iss 
macro instruction prior to 
quent PUT, GET, or EOM mac 
tion referring to an MFCM 
example below illustrates 
ment. 



If the 
ched by a PUT 
e contents of 
rk area by a 
ue the CNTRL 

any subse- 
ro instruc- 
file. The 
this require- 



PUT (or GET) AAA 

no PUT, GET, or 

EOM referring to 

MFCM files 

CNTRL ,SS,n 



Processing in non-overlap mode . If the 
card to be selected is punched by a PUT 
macro instruction, issue the CNTRL 
macro instruction prior to any subse- 
quent GET, PUT, or EOM macro instruc- 
tion referring to an MFCM file. 
The example below illustrates this 
requirement. 

PUT AAA 

no PUT, GET or 

EOM referring to 

MFCM files 

CNTRL ,SS,n 



There is one exception to the above 
usage. Between the PUT macro instruc- 
tion for a card to be selected and the 
CNTRL macro instruction for this card, 
a GET macro instruction for the same 
file may be inserted. The example 
below illustrates this exception. 



When two CNTRL macro instructions with 
this format are issued before the stacker 
select operation is performed, the second 
CNTRL macro instruction overrides the 
first. 



Elxecution of this stacker select CNTRL 
macro instruction for the MFCM requires 
that the card to be selected is in the 
pre-print station when the subsequent PUT, 
GET, or EOM macro instruction referring to 
an MFCM file is executed. 



To ensure that the instruction is in 
proper relationship to the GET, PUT, or EOM 
macro instruction referring to the card to 
be selected, observe the following rules: 



PUT AAA 

no PUT, GET, or 

EOM referring to 

MFCM files 

GET AAA 

no PUT, GET, or 

EOM referring to 

MFCM files 

CNTRL ,SS,n 



If the card to be selected is read by a 
GET macro instruction, another GET, EOM, 
or PUT macro instruction referring to 
the file must be issued prior to the 
CNTRL macro instruction for this card. 
The example below illustrates this 
requirement. 



GET AAA 

any combination of 

macro instructions 

referring to 

another file 

GET AAA 

(or PUT AAA 

or EOM AAA) 

no PUT, GET, or 

EOM referring to 

MFCM files 

CNTRL ,SS,n 



File Name Specified; When the first oper- 
and is present, the CNTRL macro instruction 
specifies the file containing a card to be 
selected. Therefore, the format of the 
macro instruction is: 

CNTRL filename, SS,n 

If this format is used, the functions 
are the same as described for the stacker 
select CNTRL macro instruction for card 
files that are to be processed on the IBM 
2520, Models Al and A2. 



EOM MACRO INSTRUCTION (COMBINED FILES) 

This macro instruction (Enter Overlap Mode) 
applies only to combined files for which a 
previous LOM (Leave Overlap Mode) macro 
instruction was issued. 

r T T 1 

I Name | Operation | Operand 1 

^ 1 1 ^ 

I [name] 1 EOM [filename | 

L 4- X J 

Enter EOM in the operation field and the 
name of the file to which the macro 
instruction applies as the operand. 

This macro instruction causes (1) the 
next card to be read into the input area, 
and (2) subsequent GET macro instructions 
referring to the same file to be executed 
in overlap mode. Processing of the file in 
overlap mode begins immediately after the 
EOM macro instruction has been executed. 
For further details regarding the use of 
EOM macro instructions, refer to Program- 
ming with LOM and EOM Macro Instructions 
below. 



LOM MACRO INSTRUCTION (COMBINED FILES) 



r T T 1 

1 Name | Operation 1 Operand | 

^ 1 _| ^ 

1 [name] I LOM ] filename | 

L X J. J 

Enter LOM in the operation field and the 
name of the file to which the macro 
instruction applies as the operand. 

When a LOM macro instruction is issued,, 
processir\g of the file in non-overlap mode 
begins when the next GET macro instruction 
for the specified file is executed. This 
permits reading a card and punching data 
into the same card of a combined file that 
is being processed in overlap m.ode. If a 
LOM macro instruction is issued for a par- 
ticular file, all subsequent GET macro 
instructions foi;- that file are performed in 
non-overlap mode until an EOM macro 
instruction is issued. 



Programming with LOM and EOM Macro 
Instructions 

If a card has to be read and then punched, 
it must be read by a GET macro instruction 
in non-overlap mode. There are three pos- 
sible ways to cause the GET macro instruc- 
tior) to operate in non-overlap mode during 
this reading and punching of the same card: 

1. Provide an OVERLAP=NO detail entry in 
the file definition statement for the 
file. In this case, the IOCS generates 
GET and PUT routines for this file that 
operate in non-overlap mode. 



Do not provide an OVERLAP 
entity in the file definit 
for the file and, in the 
gram, issue an LOM macro 
between the OPEN and firs 
instructions for the file 
case, GET and PUT routine 
in the overlap mode are g 
the file. However, all G 
instructions for the file 
non- overlap mode. 

Do not provide an OVERLAP 
entry in the file definit 
for the file and, in the 
gram, precede each GET ma 
tion with a LOM macro ins 
follow each GET with a te 
mine if a punching operat 
performed on this card, 
tion of this file can be 
to the overlap mode by an 
instruction. 



=NO detail 
ion statement 
source pro- 
instruction 
t GET macro 

In this 
s that operate 
enerated for 
ET macro 
operate in 



=N0 detail 
ion s'tatement 
source pro- 
cro instruc- 
truction and 
st to deter- 
ion is to be 
If not, opera- 
changed back 
EOM macro 



This macro instruction (Leave Overlap Mode) 
applies to combined files for which overlap 
mode was specified. 



The first method keeps storage require- 
ments at a minimum, but results in a 
decrease of program speed. 
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The second merhod is the most satisfac- 
tory solution when almost all cards of a 
file must be both read and punched. The 
program speed does not decrease as much as 
with the first method because the PUT rou- 
tines will operate in the overlap mode. 



The third method is usually the most 
satisfactory solution when only a few spec- 
ified cards in a combined file must be both 
read and punched. When this method is 
usec^, each card is read in the non-overlap 
mode and can therefore be subsequently 
punched . 



However, when punching is not required, 
the program immediately begins operation in 
the overlap mode. This method requires 
some additional main storage positions for 
the extra LOM and EOM macro instructions, 
but it results in a program that runs at 
nearly the same speed as a program operat- 
ing entirely in z-he overlap mode. 



The coding below is an example of the 
use of the LOM and EOM macro instructions. 
This coding example assumes that (1) a 
combined file (AAA) is to be processed and 
(2) data is to be punched into €?ach card of 
the file that contains a 7-punch in column 
1. It is further assumed that an area 
named WORKAAA has been defined. 



COMPRl 
CO]yiPR2 



LOM AAA 

GET AAA, WORKAAA 

CLI WORKAAAjC'7' 

BE PUNCHR 

EOM AAA 



COMPRl 



PUNCHR 



PUT 



AAA, WORKAAA 
COMPR2 



The macro instruction "LOM AAA" causes 
the subsequent GET ' ior the file AAA to be 
executed in non-overlap mode. This permits 
the punching of data into the same card 
that has been re^id by means of the GET 
macro instruction. If punching is required 
(a 7-punch' in column 1), control is trans- 
ferred to the punch routine (PUNCHR). The 
PUT macro instruction for the file may be 
followed immediately by a branch to the GET 
macro instruction for the file because the 
system is still operating in non-overlap 
mode. 

If punching is not required (no 7-punch 
in column 1) , the EOM macro instruction is 
executed, which causes the operating mode 
for the file to be changed back to overlap. 



WAITC MACRO INSTRUCTION 

The format of this macro instruction ( WAIT 
Card) is: 



r T T 1 

] Name | Operation | Operand | 

^ 1 1 ^ 

I [name] I WAITC 1 | 

L „X 1 .^ J 

Since the WAITC macro instruction neith- 
er refers to a particular file nor requests 
a particular function, no operand is 
required. 



The WAITC macro inst 
problem program to wait 
of all pending card and 
tions before the next s 
tion is executed. This 
allows you to establish 
conditions for all card 
devices that are used i 



ruction causes the 
for the completion 
printer I/O opera- 

equential instruc- 
macro instruction 
uniform operating 
and printer I/O 

n the program. 



In a program using the IOCS, a WAITC 
macro instruction must precede the 
appropriate programmed halt statement if 
one of the following three conditions 
exists: 

1. Card-input is read in overlap mode. 

(In the case of a read error, the WAITC 
macro permits a programmed halt to 
occur, thus allowing the replacement of 
the card in error.) 

2. Card- input is read on an MFCM in over- 
lap mode from one hopper and in non- 
overlap mode from the other hopper. 
(Function of the WAITC macro 
instruction as above. ) 

3. The FETCH macro is used to load another 
phase of a multi-phase program into 
main storage. 

Except for condition 2 above, a WAITC 
macro instruction need not be issued for 
the replacement of an error card if the 
cards of the file are to be read in non- 
overlap mode. 



Programming with the WAITC Macro 
Instruction 



A GET macro instruction that r 
card file may or may not immed 
initiate a read operation. Th 
the operating condition of the 
involved. If the initiation o 
operation is delayed, the IOCS 
device request into a waiting 
IOCS handles the device reques 
waiting queue and executes the 
I/O operation as the requested 
become available. 



efers to a 

lately 

is depends on 

I/O device 
f the I/O 

places the 
queue. The 
ts in this 

appropriate 

I/O devices 



no 



I/O Device 



+- 



Mode of Operation 



WAITC 
required 



Number of 
Dumrny GETS 



Number of Cards to be 
Returned 
^ ^ 



Error Feed 



Non-error 
Feed 



2501 



Non-overlap 



No 



Overlap with one I/O area 



+- 



Overlap with two I/O areas 



+- 



Yes 
Yes 



-+- 



2560 
Feed 1 



Non-overlap 



No* 



■+- 



Overlap 



Yes** 



2560 
Feed 2 



Non-overlap 



No* 



Overlap 



Yes** 



2520 



Non-overlap 



No 



Overlap 



Yes 



*WAITC macro instruction is required if a file in the other feed is processed in 
overlap mode. 
**A dummy GET is required for both files. 



Figure 12. Programming with the WAITC Macro Instruction -- Halt and Restart Information 



When a GET macro instruction is. issued, 
the IOCS makes the desired card record 
available to the problem program in the 
specified work area. If the problem pro- 
gram determines that this record contains 
an error, you can provide a halt (HPR 
instruction) to enable the operator to (1) 
rejnove and correct the error card, (2) 
return it to the hopper, and (3) resume 
normal system operation. 



Since you have no means "to determine the 
status of the waiting queue at the time the 
error is detected or the exact position of 
the error card in the I/O device, the 
standard restart procedures cannot be 
applied. 

Before writing the HPR instruction, you 
must issue a WAITC macro instruction to (1) 
establish uniform operating conditions for 
all card and printer I/O devices and (2) 
determine the exact position of the error 
card. 



After the execution of the WAITC macro 
instruction, the waiting list contains no 
pending I/O device requests, except those 
for card printing. The error card (to be 
fed as the first card on restart) is deter- 
mined by the number of cards that have to 
be returned to the input deck after the 
non- process runout. 



The number; of cards to be returned to 
the input deck depends on the I/O device 
used and, in the case of an MFCM file, on 
the mode of operation. For details refer 
to Figure 12 which is a summary of the halt 
and restart information. 

Dummy GET Macro Instructions. To ensure 
proper program functions on restart, i.e., 
resume processing with the corrected card 
record, issue either one or two dummy GET 
macro instructions as shown in Figure 12. 
For the explanations below, processing in 
the ovei;lap mode is assumed, unless it is 
stated that the information applies to 
;£iles that are processed in the non-overlap 
mode. 

After the execution of a WAITC macro 
instruction, the contents of the card fol- 
lowing the error card are already in the 
I/O area,!. Therefore, the first GET macro 
instruction that is encountered after 
restart causes the record from the card 
following the error card to be moved into 
the work area. To make sure that the con- 
tents of the corrected error card have been 
moved into the work area before normal 
processing is resumed, the first GET macro 
instruction encountered after restart must 
be a dummy GET,, i.e., no processing must be 
performed on the record moved into the work 
area by means of this GET macro instruc- 
tion. If an IBM 2501 is used to read the 
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cards for a file and two I/O areas have 
been defined for this file, two dummy GET 
macro instructions are required. 



the time the halt occurred and they do not 
have to be returned to the respective hop- 
per. 



If an IBM 2560 MFCM is used to process 
two input and/ or combined files in one 
program, an error card in one file requires 
one dummy GET macro instruction on restart 
for each of the files with one exception: 
Only one dummy GET macro instruction is 
required for the file that contains the 
error card if (1) the other (non-error) 
file is an input file whose cards are read 
in non-overlap mode and (2) no GET has yet 
been issued for the non-error file. You 
must provide a switch to determine whether 
or not a GET has already been executed for 
the non-error file. This is illustrated in 
the coding example shown in Figure 13. 



A GET macro instruction for a file that 
is to be processed in overlap mode may be 
preceded by a CNTRL macro instruction 
referring to the same file. If this GET 
macro instruction detects an error card, do 
one of the following in your restart rou- 
tine: 



1. Repeat the CNTRL macro instruction 
after the dummy GET macro instruction 
for the file in your restart routine. 

2. Branch to the CNTRL macro instruction 
preceding the GET macro instruction 
that detected the error card. 



Similar rules 
processed on the 
gram. Any file- 
instruction that 
macro instructio 
repeated after t 
tion for the fil 
mal processing, 
independent CNTR 
file name specif 
once. 



^PPly if two files are 

IBM 2560 MFCM in one pro- 
dependent CNTRL macro 

precedes the last GET 
n in either file must be 
he dummy GET macro instruc- 
e and before resuming nor- 

A preceding file- 
L macro instruction (no 
ied) need be repeated only 



Figure 12 is provided to facilitate 
programming of restart routines and to 
furnish you with the required card-handling 
information. You must inform the operator 
about the number of cards to be returned to 
and placed in front of the remaining cards 
of the input deck. Any run-out cards that 
are not to be returned to the ihput deck 
must be placed into the proper stacker 
manually. 

A halt caused by the IOCS (due to a 
machine check) may occur during or 
immediately after your restart routine, and 
the number of cards in the I/O device may 
be less than stated in the appropriate 
standard procedure. In this case, only 
those cards must be stacked manually which 
were in the card feed of the I/O device at 



The coding example in Figure 13 illus- 
trates programming with the WAITC macro 
instruction. The example includes a sim- 
plified restart routine. For the purpose 
of this coding example, it is -assumed that: 



1. two files (AAA and BBB) have been 
defined to be read in the two feeds of 
the IBM 2560 MFCM, 

2. file AAA is to be processed in the 
overlap mode and the cards of this file 
are to be fed from hopper 1 of the 2560 
MFCM* This file may be an input or a 
combined file, 

3. file BBB is an input file whose cards 
are to be read in non-overlap mode, and 

4. any card of file AAA that does not have 
a 1-punch in column 1 is an error card 
and must be replaced. 



Only those instructions that illustrate 
programming with the WAITC macro instruc- 
tion are shown in Figure 13. These 
instructions are identified by sequence 
numbers in parentheses in the rightmost 
column of Figure 13. These sequence num- 
bers are used as references in the explana- 
tions below. 



Name 


Operation 


Operand 


Instr 

Sqnce 















GET 


BBB,W0RK2 


(1) 




MVI 


SW+1,X'00' 


(2) 




CNTRL 


BBB,SS,, U 


(3) 


RETPT 


CNTRL 


AAA, SS,2 


(4) 




GET 


AAA, WORK 1 


(5) 




CLI 


WORKl,C'l' 


(6) 




BE 


NOERR 


(7) 




WAITC 




(8) 




HPR 


X'FFFV, 


(9) 




GET 


AAA,W0RK1 


(10) 


SW 


B 


BYPASS 


(11) 




GET 


BBB„W0RK2 


(12) 




CNTRL 


BBB,SS,4 


(13) 


BYPASS 


B 


RETPT 


(14) 


NOERR 


• 







U X X X 

Figure 13. Coding Example — Programming 
with the WAITC Macro Instruc- 
tion 
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If a card of file AAA does not contain a 
1- punch in column 1, the branch to NOERR 
(7) is not performed and the program exe- 
cutes the WAITC macro instruction (8) that 
precedes an HPR instruction (9). On 
restart, the program executes either one or 
two dummy GET macro instructions. Only one 
dummy GET macro instruction for file AAA 
(10) is executed if no GET macro instruc- 
tion has yet been executed for the file 
BBB. In this case, the branch instruction 
named SW (11) is executed and the second 
dummy GET macro instruction for file BBB 
(12) and the stacker select CNTRL macro 
instruction (13) for this file are 
bypassed. Control is returned to the prob- 
lem program by a branch to RETPT to repeat 
the CNTRL macro instruction preceding the 
GET macro instruction that caused the error 
card to be detected. 



If a GET macro instruction has already 
been executed for the file BBB at the time 
the error card is detected, the branch 
instruction named SW (11) is not executed. 
This instruction has been changed to a 
no-operation (BC 0), instruction by means of 
the MVI instruction (2) following the GET 
macro instruction (1) for the file BBB. 



The CNTRL macro instruction for file BBB 
(3) is only effective when no error caard is 
detected. 



If an error card is detected, four cards 
have to be returned for file AAA and two 
cards for file BBB. 



If the cards of the file BBB are to be 
read in overlap mode, instructions (2) and 
(11) have to be omitted. 



If the cards of a combined file are also 
to be card-printed and this file is to be 
processed in non-overlap mode, consider the 
following: 

Unless successive cards are to be read 
which are not to be punched, a GET macro 
instruction for a card does not initiate 
card movement. Card movement is initiated 
by the PUT macro instruction for the 
preceding card. Therefore, you must issue 
a dummy GET macro instruction prior to the 
WAITC macro instruction to ensure that the 
desired card-print operation for the card 
preceding the error card is properly exe- 
cuted. 



(1) the first card of the file CMBF has 
already been read; 



(2) data is to be punched into all input 
cards ; and 



(3) all cards that do not contain a 

1-punch in column 1 are error cards 
and must be replaced by the operator. 



The sequence numbers shown in the right- 
most column of Figure 14 are used as 
references in the explanations below. 



If the card that is made available by 
the normal GET (1) is not an error card, 
the next PUT for the same file (8) causes 
data to be printed on the preceding card. 
If the card made available by the normal 
GET is an error card, the dummy GET (4) 
causes the error card to be moved past the 
punch station and the card preceding the 
error card is properly card-printed. On 
restart, the corrected error card is read 
by means of the normal GET (1) , punched by 
means of the subsequent PUT (8), and card- 
printed at the time this PUT macro 
instruction is executed for the following 
card. 
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-T T ' T 1 


|Name 

L 


1 Operation 
_j 


Operand 


Instr 1 
Sqnce 1 
J 


r 


t 





1 


IREPT 


1 m 

|GET 


CMBF,WRKC 


(1) 1 




JCLI 


WRKCC'l" 


(2) 1 




|BE 


8 , NERR 


(3) 1 




[GET 


CMBF,WRKC 


(4) 1 




1 WAITC 




(5) 1 




JHPR 


X'FFF' ,0 


(6) 1 




|B 


REPT 


(7) 1 


1 NERR 


1 • 








1 • 

JPUT 


CMBF,WRKC 


(8) 1 




1 CRDPR 




(9) 1 




|B 


REPT 





L X X ± J 

Figure 14. Coding Example — Programming 
with the WAITC Macro Instruc- 
tion Involving Card Printing 



This is further explained in the coding 
example shown in Figure 14. 

The coding example in Figure 14 is based 
on the following assumptions: 



The programming considerations that 
apply to card printing are also applicable 
to stacker-select CNTRL macro instructions 
without a file name as the first operand. 



Instructions for Processing Card Files 
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Instructions for Processing Printer Files 



The IOCS routines to process printer files 
can be included in the problem program 
through the use of the macro instructions 
described below. 

Printer files are always organized 
sequentially. The records in a printer 
file have to be unblocked forraat-F records 
The length of each record must not exceed 
the length of a print line. 



DTFSR Statement 

This file definition statement describes 
the characteristics of the printer file to 
be processed. The name field of the header 
entry must contain the name of the file,, 
and the operation field must contain DTFSR. 
For ease of reference, the detail entries 
to be used in the operand field of the 
DTFSR statement for printer files are des- 
cribed below in alphabetical order. 



Code 



Explanation 



PRINTER A file is to be printed by an IBM 
22 03. Printer with a standard car- 
riage or by an IBM 14 03 Printer. 

PRINTLF A file is to be printed on the 

lower feed of an IBM 2203 Printer 
with the dual-feed carriage. 

PRINTUF A file is to be printed on the 

upper feed of an IBM 2203 Printer 
with the dual-feed carriage. 



Note ; If both feeds of an IBM 2203 Printer 
with dual- feed carriage are used, write 
separate DTFSR statements for the file 
printed on the lower feed and for the file 
printed on the upper feed. If the applica- 
tion rec^uires only one feed of the dual^ 
feed carriage, the lower feed must be used, 
In this case, the DEVICE=PRINTER entry and 
not the DEVICE=PRINTLF entry must be 
provided in the printer-file DTFSR state- 
ment. 



BLKSIZE=n 

This entry specifies the minimum length of 
the areaCs) to be used by a printer file. 
The value of n must be equal to or less 
than the number of bytes of the reserved 
areaCs). You must specify a BLKSIZE entry 
for all printer files even though the 
lOAREAl entry is not provided for a printer 
using the standaird carriage. 

Maximum area lengths acceptable to the 
IOCS are 120, 132, or 144 bytes, depending 
on the number of print positions available. 
One byte is the minimum length you must 
specify for a printer file. 



CONTROL=YES 

Provide this detail entry if a CNTRL macro 
instruction is to be issued for the file. 
The CNTRL macro instruction causes the 
printer to perform form spacing and/or form 
skipping. 



DEVICE=code 

This entry is mandatory for all files. It 
specifies the I/O device to be used to 
process the particular file. One of the 
following specifications must be entered 
immediately following the equal sign(=) in 
this entry. 



IOAREAl=name 

This entry applies only if DEVICE=PRINTLF 
or DEVICE=PRINTUF has been specified. It 
designates the name of the I/O area to be 
used by the printer file. The specified 
name must be the symbol used in defining 
the area in the problem program. 



For a printer file for which 
DEVICE=PRINTER has been specified (standard 
carriage or single file on lower feed of 
dual-feed carriage) , do not provide the 
lOAREAl entry. The printer automatically 
uses the firs"t 144 main-storage positions 
as a print buffer (printer output area) . 
You cannot use these 144 main-storage posi- 
tions in the problem program. 



Two files printed on the dual-feed car- 
riage require two lOAREAl entries, i.e.,, 
one for each file. The print areas for the 
lower and upper feed of the dual-feed car- 
riage must be defined as contiguous areas 
in main storage. The print area for the 
lower feed precedes the print area for the 
upper feed (see Figure 15). 



Note that you must specify a work area 
in addition to an I/O area. Refer to the 
description of the WORKA=YES entry. 



44 



r 




T 


" 


1 


Lower-feed 


1 


Upper-feed 


1 


Print Area 


1 


Print Area 


L 









1 Address of 

I Lower- feed Area 

L 



I Address of 

1 Upper-feed Area 

t 



Figure 15. Print-Area Format for Dual-Feed 
Carr'iage 



PRINTOV=YES 

Include this entry for a printer file if a 
PRTOV macro instruction referring to this 
file is used in the source program. 



TYPEFLE=OUTPUT 

This entry, which is required for all prin- 
ter files, is used to specify the type of 
file. 



WORK A= YES 

The WORKA=YES detail entry is mandatory for 
all printer files. Enter the name of the 
work area, which must be defined in your 
problem program, as the second operand in 
your PUT macro instructions for the parti- 
cular file. The length of a work area must 
always be the same as that of the I/O area 
(if specified) . For additional information 
regarding the use of a work area, see Work 
Areas under the section Overlapping an d 
Storage Areas . 



The first operand specifies the name of the 
file; the second operand specifies the name 
of the work area in which the records are 
built. The PUT macro instruction moves the 
record from this work area to an output 
area. When the output area is full, the 
IOCS takes the data in that area and prints 
them on the output device specified in the 
;file definition statement for that file. 

Individual records for a logical file 
may be built in the same work area or in 
different work areas. Each PUT macro 
instruction specifies the work area in 
which the completed record was built. How- 
ever, only one work area can be specified 
in any one PUT macro instruction. 

A PUT macro instruction for the printer 
file (1) moves a record from the work area 
to the output area., (2) initiates the print 
operation, and (3) immediately transfers 
control to the main program. 

The IOCS does not clear the work area 
when the PUT macro instruction is executed. 
To prevent having interspersed characters 
from preceding records in the output 
record, ensure that 

a) the records use every position of the 
work area, or 

b) the work area is cleared before the next 
record is built. 



CNTRL MACRO INSTRUCTION 

The CNTRL macro instruction for printer 
files causes form spacing or form skipping. 
A CONTROL=YES entry must be included in the 
file definition statement for a printer 
file if one or more CNTRL macro instruc- 
tions are issued for the file. 



Imperative Macro Instructions 

The imperative macro instructions for proc- 
essing sequential printer files are des- 
cribed in the following order: PUT, CHTRL, 
PRTOV. For a description of OPEN and CLOSE 
refer to the section Instructions for Open- 
ing and Closing Files . 



PUT MACRO INSTRUCTION 



r T T 1 

I Name | Operation | Operands ] 

j. 1 + ^ 

I [name] I CNTRL | filename, code, n,m \ 

L 1 X J 

The first operand specifies the name of 
the file for which the device operation is 
to be performed. As the second operand, 
enter the mnemonic SP for form spacing or 
SK for form skipping. The mnemonics SP and 
SK as well as the operands m and n are 
described in detail below. 



This instruction prints logical records 
that have been built in a specified work 
area. 

r T T 1 

jName | Operation! Operands j 

|. 1 1 _^ 

l[name]|PUT | filename, workname | 

L X X J 



Form Spacing (SP). for Printers 

The form spacing mnemonic SP is used to 
control line spacing. The operands n and m 
specify the number of lines to be spaced; n 
specifies immediate spacing (i.e., spacing 
when the CNTRL macro instruction is 
executed), and m specifies delayed spacing 
(i.e., spacing after the next line has been 
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(i.e., spacing after the next line has been 
printed by means of a PUT macro 
instruction) . The values of both m and n 
range from zero to three (0 = no spacing, 
i.e., printing on the same line; 3 = two 
blank lines, i.e., printing on the third 
line) . 



r T 

I Operands | 

I" X T i Operation 

I code] n I m j 

}. 1 1 + ^ 



|SP 



|. !___! ^ ^ 



|SP 



I Space n (n = 0, 1, 2 or 3) 
I lines immediately 



n I m I Space n (n = 0, 1, 2, or 3) 
I I lines immediately and 
I |m (m = 0, 1, 2, or 3) lines 
I I after printing 




You may omit either operand n or m. If 
operand n is omitted, indicate the absence 
of the operand by a comma. 
Example: CNTRL f ilename, SP, , 2 . 



Both delayed spacing and immediate spac- 
ing may be specified in a single CNTRL 
macro instruction preceding a PUT macro 
instruction for the same file. 



The form will then be spaced n lines 
before, and m lines after the PUT macro 
instruction is executed. If two separate 
CNTRL macro instructions are issued (one 
for the delayed spacing and one for the 
immediate spacing) it is immaterial which 
of the two instructions is issued first. 
Normally, however, only one CNTRL is 
issued, e.g., CNTRL f ilename, SP, 1 ,2 (space 
one line immediately and two lines after 
printing) . 



Form Skipping (SK) for Printers 

You can control the skipping of lines of a 
printed form using the form skipping mne- 
monic SK, Use operands n and/or m to spec- 
ify the channel of the carriage control 
tape to which the form is to be skipped 
immediately and/or after printing of a 
line. 



r T 

Operands 



T T— 

code I n |m 



SK 



•+ +— + 



SK 



+ +— + 



I 1__| 



Operation 



Skip to carriage-tape channel 
n (n=1 ,2 , . . . , 12) immediately 



Skip to carriage-tape channel 
n (n=1 , 2, . . . , 12) immediately 
and to carriage-tape channel 
m (m=1 , 2 , . . . , 1 2) after 
printing 



SK I |m I Skip to carriage-tape channel 
m (m=1 ,2, . . . , 12) after 
printing 



You may omit either operand n or m.. If 
operand n is omitted, indicate the absence 
of the operand by a comma. 
Example: CNTRL f ilename, SK, , 1 2 . 

When you issue two delayed skipping 
CNTRL macro instructions before the next 
PUT macro instruction, only the skipping 
specified in the second CNTRL macro 
instruction is effective. When both del- 
ayed and immediate skipping are specified 
either in one or in two successive CNTRL 
macro instructions, skipping is performed 
as indicated in both specifications togeth- 
er (i.e., skip to channel n before print- 
ing, and to channel m after printing) . To 
increase the rate of output, use delayed 
rather than immediate skipping whenever 
possible, 

PRTOV MACRO INSTRUCTION 



If a delayed- spacing CNTRL macro 
instruction is not used before the next PUT 
macro instruction for the file, the form is 
automatically spaced one line after print- 
ing. If two delayed-spacing CNTRL macro 
instructions are issued before the next PUT 
macro instrujction for the file, only the 
second CNTRL macro instruction is effec- 
tive. If both delayed spacing and skipping 
are specified before a PUT macro instruc- 
tion for the file, only the last operation 
specified will be performed. 



To increase the rate of output, use 
delayed instead of immediate spacing when- 
ever possible. 



r T T 1 

I Name | Operation] Operands J 

j. 1 1 i| 

1 [name] ] PRTOV ] filename, n [, address] ] 

L ± J. J 

Use this macro instruction 
(PRinT- overflow) for printer files to ena- 
ble the program to recognize the end of a 
page. In the operand field, you must spec- 
ify the name of the file to which the 
instruction pertains and the carriage-tape 
channel indicator (n equal to 9 or 12) to 
be tested. If you provide your own routine 
to which the program should branch on an 
overflow condition, specify the name of the 
routine as the third operand. 
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The PRTOV macro instruction allows you 
to check for printer-overflow conditions by 
testing whether the channel 9 or channel 12 
indicator has been set on: 



• before the execution of the last 

(preceding) PUT macro instruction refer- 
ring to a printer with the standard 
carriage, 

• before the execution of the last PUT 
macro instruction referring to a printer 
with the dual-feed carriage when only 
the lower feed is used, and 

• before the execution of the next to last 
PUT macro instruction referring to a 
printer with the dual-feed carriage when 
both feeds are used. 

However, if a skip has been performed or 
more than one line has been spaced after 
the last PUT macro instruction (or after 
the next to last PUT if both feeds of a 
dual-feed carriage printer are used) , a 
punch in channel 9 or 12 that may then be 
sensed is lost and cannot be determined by 
a PRTOV macro instruction. 



The program branches to you 
routine if the tested indicate 
the name of your routine has b 
as the third operand. In the 
routine, any IOCS macro instru 
PRTOV) may be issued, e.g., to 
totals and, upon a skip to cha 
ing lines on the new page. At 
the routine, control must be r 
the IOCS by branching to the a 
tained in register lU. 



r end-of-page 
r is on and 
een specified 
end-of-page 
ction (except 

print page 
nnel 1 , head- 

the end of 
eturned to 
ddress con- 



If IOCS macro instructions are used in 
the end-of-page routine, the contents of 
register 14 must be saved before these 
instructions are executed. 



If a third operand has not been speci- 
fied in the PRTOV macro instruction, an 
automatic skip to channel 1 is performed 
when the tested indicator is on. 



The DTFSR file definition statement must 
have a PRINTOV=YES entry when a PRTOV macro 
instruction is issued for the file. 



Instructions for Processing Printer Files 
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Instructions for Processing Printer-Keyboard Files 



Input and output records for printer- 
keyboard files raust be unblocked format-F 
records. The input record length may range 
from 2 to 511 bytes, the output record 
length, from 1 to 511 bytes. However, if 
the simulated carriage-control tape feature 
is used, the output length is limited to 
125 bytes. 



The IOCS rout 
output files on 
Keyboard can be 
program through 
instructions des 
Use the DTFPK fi 
describe your fi 
put files with c 
require a DTFLC 
counter table, 
simulates a carr 



DTFPK Statement 



ines to process input or 
the IBM 2152 Printer- 
included in the problem 
the use of the macro 
cribed in this section, 
le definition statement to 
le. Printer-keyboard out- 
arriage control also 
statement to define a line- 
This line-counter table 
iage-control tape. 



This file definition statement describes 
the characteristics of the file to be 
processed. Since both printer-keyboard 
input and output files can be processed in 
a single program, you must write a separate 
DTFPK statement for each file. However, 
only one printer-keyboard input and one 
printer-keyboard output file can be defined 
in a single program. If both input and 
output operations are performed on the 
printer-keyboard in a single program, and 
if skipping or use of the print-overflow 
routine is desired, take into consideration 
that line advances resulting from READ 
macro instructions are not registered by 
the line- counter. 

The name field of the header entry must 
contain the file name, and the operation 
field must contain DTFPK. 



ified for an output file, the record length 
and, therefore, the BLKSIZE must not exceed 
125 bytes to avoid line overflow and the 
resulting unaccountable line advances. The 
minimum record length is two bytes for 
input files (to allow for EOF indicator 
/+), and one byte for output files. 

Note that the actual length of an input 
record is determined not by the BLKSIZE 
entry, but by pressing the EOT 
(End-of-Transmission) key to indicate the 
end of a data record. 

A BLKSIZE entry is mandatory for input 
and output files. 



CONTROL=YES 

This entry is re.quired if a CNTRL macro 
instruction is issued for an output file. 
A CNTRL macro instruction causes spacing or 
skipping of the form on the printer- 
keyboard. If skipping is desired, enter 
the detail entry LCTABLE=YES in the DTFPK 
statement and define a line-counter table 
by the DTFLC statement. 

Note that a CONTROL=YES entry is 
required if LCTABLE=YES is specified. 



EOFADDR=name 

This entry is mandatory for input files. 
It specifies the name of the routine in the 
problem prog^ram to which the IOCS branches 
if the WAITF macro instruction in the prob- 
lem program detects an end-of-file condi- 
tion. In the end-of-file routine you can 
perform any operation required for the end 
of the file. Usually, a CLOSE macro 
instruction is issued. 



The detail entries to be made in the 
operand field describe the file and specify 
symbolic addresses of routines and areas 
used during the processing of the file. 
They m.ay appear in any order. For ease of 
reference, they are discussed below in 
alphabetical order. 



BLKSIZE=n 

This entry specifies the length of the 
printer-keyboard input or output records. 
The specification n must be equal to, or 
greater than, the number of bytes contained 
in the longest record. The maximum record 
length is 511 bytes. If a line- counter 
table (LCTABLE=YES or PRINTOV=YES) is spec- 



To indicate the end-of-file condition on 
the printer-keyboard enter /* as the first 
two characters of a record. 

Note : If in a mainline program the end-of- 
file routine calls EOJ, you must also close 
all disk files in this ehd-of-file routine, 

IOAREA=name 

This entry specifies the name of the input 
or output area to be used for the file. 
The name must be the symbol used to define 
the area in the source program. The area 
must be large enough to accommodate the 
largest record as defined in the BLKSIZE 
entry. The I/O area is not cleared by the 
IOCS. 
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The lOAREA entry is mandatory for an 
input file. Although the length of the 
input area must be equal to the maximum 
record size, the records entered need not 
fill the entire area, since the operator 
indicates the end of the data record toy 
pressing the End-of-Transmission (EOT) key 
on the printer-keyboard. If you omit the 
lOAREA entry for an output file, then the 
output area (INQOPT) allocated at the time 
the Monitor is generated is used for the 
file. This output area is provided if the 
generated Monitor contains the inquiry 
facilities. (For a description of the use 
of the printer-keyboard output area in the 
Monitor refer to the section The Inquiry 
Program ) . 



LCTABLE=yES 

This entry is optional for an output file. 
It indicates the presence of a table that 
simulates a carriage- control tape for the 
printer-keyboard. The table associates 
lines with channel numbers. These channel 
numbers may then be specified in a CNTRL 
macro instruction in the program to provide 
form skipping, and in a PRTOV macro 
instruction to provide overflow- printing. 

You must describe the line-counter table 
by the DTFLC statement. 



PRINTOV=YES 

Include this entry if a PRTOV macro 
instruction for an output file is used in 
the program to test an overflow condition. 
If PRINTOV=YES is specified, control and 
line-counter routines are generated auto- 
matically and the entries CONTROL=YES and 
LCTABLE=YES are not required in the DTFPK 
file definition statement. However, you 
must define a line- counter table by a DTFLC 
statement. 



the register exceeds the length specified 
in the BLKS.IZE entry, the record is trun- 
cated on the right by the number of charac- 
ters in excess of the specified BLKSIZE. 

The RECSIZE entry is optional. However, 
you are strongly recommended to use this 
entry to save processing time. If you omit 
the entry, the number of bytes specified in 
the BLKSIZE entry will be printed; e.g., if 
your record is 5 bytes long, BLKSIZE=125, 
and RECSIZE is not specified, 125 charac- 
ters (5 as desired and 120 blanks) are 
printed. 



TYPEFLE=code 

This mandatory entry is used to specify the 
type of file. 

Code Type of File 

INPUT An input file 

OUTPUT An output file 

If you use both a printer- keyboard input 
and a printer-keyboard output file, you 
must issue a DTFPK statement for each file. 

WORKA=YES 

The WORKA=YES entry is mandatory for 
printer-keyboard output files. Enter the 
name of the work area as the second operand 
in your PUT macro instructions for the 
particular file. The IOCS assumes the 
length of a work area to be the same as 
that of the I/O area, or to be equal to the 
value in the RECSIZE register if RECSIZE 
was specified. When WORKA=YES is omitted, 
a warning message is given, but the assem- 
bly continues. 

DTFLC Statement 



RECSIZE= ( register) 

This entry specifies a register that con- 
tains the length of the output record at 
the time a PUT macro instruction is execut- 
ed in the program. You may specify in 
parentheses any one of the registers 8 
through 13, or a symbolic name that has 
been equated to one of the registers 8 
through 13. 

In your problem program, load the length 
of the record into the specified register 
before issuing the corresponding PUT macro 
instruction. The maximum record length is 
511 bytes. If a line-counter table is 
specified, the record length must not 
exceed 125 bytes. The register must con- 
tain the length of the record in binary 
format. If the record length loaded into 



The DTFLC statement describes the charac- 
teristics of the simulated carriage- control 
tape. It is used for an output file on the 
printer- keyboard to define the line- counter 
table. If DTFLC is specified, either the 
LCTABLE and CONTROL entries or the PRINTOV 
entry must toe included in the DTFPK state- 
ment for the file. 

The format of the DTFLC statement is as 
follows I 



J. ^ y . ^ 

I Name I Operation ] Operands j 

j. 1__ !_-_ _ ^ 

j 1 DTFLC |formsize,El,E2,. . . ,E48 | 

L X X J 

The first operand (formsize) refers to a 
decimal value (1 to 254) specifying the 



Instructions for Processing Printer-Keyboard Files 



49 



total number of lines on the form. The 
remaining operands, E1,E2, . . . , E4 8, refer to 
five-digit decimal values. The first three 
digits indicate a line number (001 to 254), 
to which a channel number (01 to 12) is 
assigned in the fourth and fifth digits. 
Only one channel must be assigned to a 
line, but more than one line can be 
assigned to a channel. 

Channel 01 must be specified at least 
once. There are no limitations as to the 
sequence of entries. The maximum number of 
line and channel entries is 48. The name 
field of the DTFLC statement must be blank. 



PUT MACRO INSTRUCTION 



r T T 1 

I Name | Operation | Operands | 

1. 1 1 ^ 

[[name] I PUT | filename, workname 1 

L 1 X J 



The first operand specifies the name of 
the file; the second operand specifies the 
name of the work area in which the records 
are built. You can have more than one work 
area if you issue separate PUT macro 
instructions for writing records from each, 
area. 



An example of the entries in the DTFLC 
is given below. Note that high-order zeros 
must be present in each entry except the 
formsize entry. 

Example: 

r T T 1 

Name \ Oper- | Operand 

I ationj 
|. 1 1 ^ 

I DTFLC 1 72,00 601,0120 3,0 6 612,06712 

'. ! T T T 

I I Number of Line Channel 
1 I lines Number Number 
1 I (Formsize) 

L X X J 



When a printer-keyboard output file is 
processed, a PUT macro instruction (1) 
moves a record from the work area to the 
print er-key±)oard output area, (2) initiates 
the print operation, and (3) returns con- 
trol to the main program. The length of 
the record moved to the output area- is 
derived .from the BLKSIZE entry in the DTFPK 
statement, or, if RECSIZE is specified, 
from the contents of the register specified 
under the RECSIZE entry. 

Note that the IOCS does not clear the 
work area or the output area after a PUT 
macro instruction. You should ensure that 
no characters from a preceding record 
remain in the work area. 



Note; The line- counter registers only 
those carriage advances that are initiated 
by the execution of PUT macro instructions 
(i.e., the automatic one-line space which 
occurs during the execution of a PUT) and 
by CNTRL macro instructions. The line 
counter does not register carriage advances 
caused by: 

1. any external manipulation of the form, 
i.e., advancing the carriage by hand or 
switching the On-line, Off-line key; 

2. execution of READ macro instructions 
for the printer-keyboard; 

3. line overflows due to repeated printing 
with suppressed spacing (CNTRL with 
delayed space 0). 

It is your responsibility to consider 
the effects of the above conditions during 
the execution of the program. 



Imperative Macro Instructions 

The imperative macro instructions for proc- 
essing printer-keyboard files are described 
in the following order: PUT, READ, WAITF, 
CNTRL, PRTOV. For a description of OPEN 
and CLOSE refer ^co the section Instructions 
for Opening and Closing Files . 



READ MACRO INSTRUCTION 

r T T ■ 1 

I Name [Operation [Operand | 

j. 1 + ^ 

I [name] [READ [filename | 

L X X J 

This macro instruction is used for printer- 
keyboard input files. The operand 
specifi^es the name of the file from which 
the record is to be read. 



The READ macro instruction transfers the 
characters typed on the printer-keyboard to 
the I/O area specified in the lOAREA detail 
entry of the DTFPK file definition state- 
ment. An incorrectly typed- in record can 
be cancelled by pressing the Cancel key. 
The input area is then cleared and the 
input re'cord can be re-entered. 



The READ macro instruction is executed 
in the overlap mode, i.e., after the READ 
has been issued, program execution contin- 
ues while the operator enters the input 
record. The actual length of the record is 
determined by pressing EOT. The maximum 
length of the record is defined by the 
BLKSIZE entry. If the maximum length is 
reached before EOT is pressed, the keyboard 
locks. Before the ir^put record can actual- 
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ly be processed, you must issue a WAITF 
macro instruction to ensure that the record 
has been completely transferred to main 
storage. 

Note that the input area is not cleared 
by the IOCS when you issue a READ macro 
instruction. If your input records do not 
have the same length, clear the input area 
before issuing a READ macro instruction. 



WAITF MACRO INSTRUCTION 

r T T 1 

I Name | Operation] Operand | 

j. 1 1 ^ 

I [name] I WAITF [filename | 

L X i J 

The operand specifies the name of the file 
for which you issue the WAITF macro 
instruction. The WAITF macro instruction 
ensures that the execution of the preceding 
READ macro instruction has been successful- 
ly completed. You must issue a WAITF macro 
instruction before processing the record 
read by the associated READ macro instruc- 
tion. 



CNTRL MACRO INSTRUCTION 

Use the CNTRL macro instruction to specify 
line spacing or form skipping for a 
printer-keyboard output file. You must 
include a CONTROL=YES entry in the DTFPK 
file definition statement if you issue a 
CNTRL macro instruction. 

For skipping,, you must also specify the 
DTFPK detail entry LCTABLE=YES and a DTFLC 
statement to define a line-counter table 
simulating the carriage- control tape. 

r T T 1 

I Name | Operation! Operands | 

J. 1 1 ^ 

j. [name] I CNTRL | filename, code, n,m | 

L X X J 

The CNTRL macro instruction contains CNTRL 
in the operation field, and the name of the 
file as the first operand. As the second 
operand (code) , enter the mnemonics SP (for 
spacing) or SK (for skipping) . The mnemon- 
ics SP and SK, and the operands n and ra are 
described in detail below. 

Form Spacing (SP) for the Printer-Keyboard 

Enter SP as the second operand (code) in a 
CNTRL macro instruction to specify line 
spacing. The operands n and m specify the 
number of lines to be spaced; n specifies 
immediate spacing (i.e., spacing when the 
CNTRL macro instruction is executed) „ and ra 
specifies delayed spacing (i.e., spacing 
after the next line has been printed by 



means of a PUT macro instruction) . The 
values of both m and n range from zero to 
three (0 = no spacing, i.e., printing on 
the sarafe line; 3 = two blank lines, i.e., 
printing on the third line). 



r T 

1 Operands 
j. ^ ^__ 

I code 1 n | m 

1" 



SP 



■I- 



jSP 



SP 



operation 



Space n(n = 0, 1, 2 or 3) 
lines immediately 



+- 



Space n(n = 0, 1, 2, or 3) 
lines immediately and 
m(m = 0, 1, 2, or 3) lines 
after printing 



Space m(m = 0, 1, 2, or 3) 
lines after printing 



You may omit either operand n or m. If 
you omit operand n, indicate the absence of 
the operand by a com.ma. 
Example: CNTRL f ilename,SP, , 2 . 

Both delayed spacing and immediate spac- 
ing may be specified in a CNTRL macro 
instruction preceding a PUT macro instruc- 
tion for the same file. If you use two 
separate CNTRL macro instruction for 
immediate and delayed spacing, specify 
immediate spacing before delayed spacing in 
order for both specifications to be effec- 
tive. If a delayed-spacing specification 
precedes an immediate-spacing specifi- 
cation, only the immediate spacing is exe- 
cuted. 

If a delayed-spacing CNTRL is not issued 
before the next PUT macro instruction for 
the same file, the form is automatically 
spaced one line after printing. When two 
delayed-spacing CNTRL macro instructions 
are issued before the next PUT macro 
instruction for the file, only the second 
delayed-spacing CNTRL is effective. If 
both delayed spacing and skipping are spec- 
ified before a PUT macro instruction for 
the file, only the last operation specified 
will be performed. 

Note; If you issue a CNTRL macro instruc- 
tion with delayed space 0, the automatic 
space performed during the execution of the 
PUT macro instruction is suppressed and the 
type head remains in the print position 
following the last character printed. 
Hence, if the end of the print line is 
reached during execution of a succeeding 
PUT macro instruction, an automatic advance 
to the next line occurs. This advance is 
not registered in the line counter table. 

To increase processing time,, use delayed 
rather than immediate spacing whenever 
possible. 
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Form Skipping (SK) for the Printer-Keyboard PRTOV MACRO INSTRUCTION 



Enter SK as the second operand (code) in a 
CNTRL macro instruction to specify form 
skipping. Operands n and/or ra specify the 
channel to which immediate and/or delayed 
skipping is to be performed. 



r T T 1 

1 Name | Operation] Operands | 

|. 1 1 ^ 

1 [name] I PRTOV 1 filename, n[ , address] | 

L X X J 



r T 

Operands 



T T-- 

codel n |m 



■+ +— + 



+ +— + 



SK 



+ +— + 



Operation 



Skip to carriage- tape channel 
n (n-1, 2. . . ,12) immediately 



Skip to carriage-tape channel 
n (n=l, 2, . . , ,12) immediately 
and to carriage-tape channel 
m (m=l, 2, . . . , 12) after 
printing 



SK I Im I Skip to carriage-tape channel 
m (m=l, 2, . . . ,12) after 
printing 



You may omit either operand n or ra'. If 
you omit operand n, indicate the absence of 
the operand by a comma. 
Example: CNTRL filename, SK, , 12 . 

When two delayed-skipping CNTRL macro 
instructions are issued before the next PUT 
macro instruction, only the skipping speci- 
fied in the second CNTRL macro instruction 
is effective. 

When you specify delayed and immediate 
skipping in two separate CNTRL macro 
instructions, issue the specification for 
immediate skipping first in order for both 
specifications to be effective. If you 
specify delayed skipping first, only the 
immediate-skipping specification is execut- 
ed. 

If you use form skipping for a printer- 
keyboard output file, you must define a 
line counter table in the program. This 
requires a LCTABLE=YES entry (unless 
PRINTOV=YES has been specified) in the 
DTFPK Statement and a DTFLC line-counter 
definition statement. 

To increase processing time use delayed 
rather than immediate skipping whenever 
possible. 



This macro instruction (PRinT overflow) 
applies to printer-keyboard output files. 
In the operand field, specify the name of 
the file to which the instruction pertains 
and the channel indicator (n equal to 9 or 
12) to be tested. If you provide a routine 
to which the program should branch on an 
overflow condition, specify the name of 
this routine as the third operand. 



The PRTOV macro instruction 
to check for printer overflow 
testing the channel 9 or the c 
indicator. The channel 9/12 i 
set on whenever a PUT or CNTRL 
instruction increases the line 
or beyond the line number asso 
channel 9 (12). The indicator 
after it has been tested by a 
ment or when channel 1 is reac 



allows you 
conditions by 
hannel 12 
ndicator is 

miacro 

counter to 
ciated with 

is set off 
PRTOV state- 
he d. 



If you specify the address 
as third operand, the program 
this routine if the tested in 
In the specified routine, you 
IOCS macro instruction except 
allows you, for instance, to 
page headings. At the end of 
return control to the IOCS by 
the address contained in regi 



of a routine 
tranches to 

dicator is on. 
may issue any 
PRTOV. This 

print overflow 
the routine, 
branching to 

ster 14. 



If you use IOCS macro instructions in 
your routine, you must first save the con- 
tents of register 14 to prevent losing the 
return address. If you do not provide your 
own overflow routine, an automatic skip to 
channel 1 is performed when the tested 
indicator is on. 



Include a PRINTOV=YES in the DTFPK file 
definition statement when you use the PRTOV 
macro instruction for a printer-keyboard 
output file, and provide a line-counter 
table simulating the carriage-control tape 
by means of a DTFLC statement. 
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Instructions for Processing Magnetic Tape Files 



The IOCS provides routines for processing 
imagnetic tape files. These files are proc- 
essed sequentially. Records in magnetic 
tape files can be blocked or unblocked 
format-F, format-V, or format-U records. 
You must describe your magnetic tape file 
in the source program using the DTFMT file 
definition statement. To cause the 
required I/O operation, you have to issue 
imperative macro instructions. The DTFMT 
file definition statement and the impera- 
tive macro instructions referring to the 
magnetic tape files are described in this 
section. 



DTFMT Statement 

The DTFMT Statement applies to magnetic 
tape files only. The name field of the 
header entry must contain the name for the 
file and the operation field must contain 
DTFMT. For ease of reference, the detail 
entries to be made in the operand field are 
described below in alphabetical order. 



ALTTAPE=^code 

This entry specifies the symbolic address 
of a magnetic tape drive that will be used 
as an alternate when a magnetic tape file 
has two or more reels (volumes) of data. 

Code Magnetic Tape Drive 

SYSIPT System input tape drive. 

SYSOPT System output tape drive. 

SYSnnn Any other magnetic tape drives 
attached to the system. The 
specification nnn may be any num- 
ber from 000 to 019. 

You can assign the physical tape-drive 
address to the symbolic address either when 
building the system or by means of an 
assign (ASSGN) statement read by the Job 
Control program before the problem program 
is executed. If you use the ASSGN state- 
ment, you can mount the second (fourth, 
sixth, etc.) reel of tape on any one of 
the magnetic tape drives attached to the 
system by merely assigning that drive to 
the specified symbolic address. You could 
then mount the first (third, fifth,, etc. ) 
reel of tape on the magnetic tape drive 
specified in the DEVADDR entry of the DTFMT 
statement for the file. 

The method described above allows the 
operator sufficient time to mount the third 
reel on the magnetic tape drive specified 
in the DEVADDR entry while the records on 



the second reel are processed. He can 
mount the fourth reel on the magnetic tape 
drive specified in the ALTTAPE entry while 
the records on' the third reel are proc- 
essed; and so on. 

You can specify the detail entry ALTTAPE 
for both input and output files. If you 
specify it for an output file, the IOCS 
SiWitches the magnetic tape drives in accor- 
dance with the ALTTAPE specification on 
detecting an end-of-volume condition, i.e., 
when the reflective marker at the end of 
the magnetic tape is sensed. 

If you issue the entry for an input 

file, the functions of the IOCS vary 

depending on the type of labels (if any) 

specified in the file. 

1. Standard Labels . The IOCS switches the 
magnetic tape drives in accordance with 
the ALTTAPE specification. 

2. Non-standard Labels or No La bels . The 
IOCS has no means of deteririning the 
end of a volume. When a tapemark is 
sensed, the IOCS transfers control to 
the EOFADDR routine, which you may code 
to determine whether an end-of-file or 
an end-of-volume condition exists. In 
the case of an end-of-volume condition, 
issue an FEOV macro instruction. This 
causes the IOCS to switch the magnetic 
tape drives in accordance with the 
ALTTAPE specification, and then to 
return conti;ol to the instruction fol- 
lowing the FEOV macro instruction. 

Note ; ALTTAPE must not be specified when 
READ=BACK or DTFEN OVLAY is specified. 

I/O device assignment is described in 
detail in the SRL publication IBM 
System/360 Model 20, Disk Programming Sys- 
tem, Control and Service Programs , Form 
C2 4-9 006. 



BLKSIZE=n 

This entry specifies the length of the I/O 
area to be used by the file. The specifi- 
cation n must be equal to the length, in 
bytes,, of the area reserved in the problem 
program. If the record format is variable- 
length, n must be equal to the number of 
bytes contained in the longest block of 
records. 

The maximum length acceptable to the 
IOCS is <4095 bytes, which is equal to the 
maximum block length for IBM 2415 Magnetic 
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Tape Units connected to an IBM System/360 
Model 20. The minimum block length is 18 
bytes, except for tape input files 
containing checkpoint records. For these 
tape files, the minimum block length is 20 
bytes . 



If unblocked records or records of unde- 
fined format are to be processed in a work 
area, consider the following: A GET macro 
instruction causes the IOCS to move the 
number of bytes specified in the detail 
entry BLKSIZE from the input area to the 
work area. A PUT macro instruction causes 
the IOCS to move this number of bytes from 
the work area to the output area. There- 
fore you must ensure that the address of 
the work area you use for an output file is 
equal to or lower than the upper main- 
storage limit minus the BLKSIZE 
specification. | 

Note ; For variable- length unblocked 
records, the first four bytes of the work 
area contain control information (two bytes 
record length and two bytes binary zeros). 



CKPTREC=YES 

This entry is required if a tape input file 
contains checkpoint records interspersed 
among the data records. When this entry is 
provided, the IOCS recognizes the check- 
point records and bypasses them. 

Magnetic tape files created by means of 
the Model 20 IOCS do not contain any check- 
point records. Therefore, this entry is 
required only if a magnetic tape is to be 
read that was created by means of another 
program and contains interspersed check- 
point records. 

If the detail entry CKPTREC is specified 
for a tape input file, you must specify a 
block length (BLKSIZE entry) of at least 20 
bytes. 



A group of checkpoint records is iden- 
tified by a header and a trailer identifi- 
er, each of which contains the characters 
///bCHKPTb// (where b = blank) . You must 
ensure that none of the input blocks con- 
tain this character combination in the 
first twelve positions. 



The IBM System/360 Model 20 DPS IOCS 
does not provide for the creation of check- 
point records on magnetic tape. 



CONTROL=YES 

This entry is required if a CNTRL macro 
instruction is to be issued for the file. 



The CNTRL macro instruction causes the 
associated inagnetic tape drive to perform 
operations such as tape rewind, rewind and 
unload,, backspace, and so on. 



DEVADDR=COde 

This entry specifies the symbolic address 
of a magnetic tape drive to be associated 
with the particular file. The symbolic 
address represents a physical tape drive 
address. 



Code 



Magnetic Tape Drive 



SYSIPT System input tape drive. 

SYSOPT System output tape drive. 

SYSnnn Any other tape drives attached to 
the system. The specification nnn 
may be any number from 000 to 019. 

You may assign a physical tape drive 
address to the symbolic address either when 
building the system or by means of an 
assign (ASSGN) stat^ement read by the Job 
Control program before the problem program 
is executed. If the ASSGN statement is 
used, a reel of tape may be mounted on any 
magnetic tape drive that is available at 
the time the job is ready to be run; this 
drive need then merely be assigned to the 
specified symbolic address. Refer to the 
SRL publication IBM System/360 Model 20, 
Disk Proqraitiminq System, Control and Ser- 
vice Pro(^rams. , Form C24-9006. 



EOFADDR=name 

This entry is mandatory for input files. 
It specifies the name of the routine in the 
problem program to which the IOCS branches 
on an end-of~file condition. In that rou- 
tine, you can perform any operation 
required for the end of the file, e.g. 
issue a CLOSE macro instruction. However, 
you must not issue a GET macro instruction 
for this file in you:p EOFADDR routine. 



Note: If, in the end-of-file routine, you 
wish to discontinue the processing of a 
program that is a mainline program, you 
must fii;st close all disk files. 

An end-of-file condition is detected by 
reading a tapemark and the characters EOF 
in the trailer label when standard labels 
are specified. If standard labels are not 
specified, the IOCS assumes an end-of-file 
condition when it reads a tapemark. Since 
the IOCS does not distinguish between an 
end-of-file condition and an end-of-volume 
condition i,f no labels or non-standard 
labels are specified, include in your 
EOFADDR routine a test to determine whether 
EOF or EOV has occurred. 
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ERRIO=naine 

This entry specifies the symbolic name of a 
two- byte area, in which the IOCS places the 
address of: 

1. The I/O area containing the block that 
caused an irrecoverable read error (if 
the name of the error routine is speci- 
fied in the ERROPT entry) , 

2. The I/O area containing the wrong- 
length record (if the name of the 
wrong-length record routine is speci- 
fied in the WLRERR entry) . 

This entry may only be issued if 
ERROPT=name, and/or WLRERR=name, and two 
I/O areas are specified. 



ERROPT=code 

This entry is required for a tape input 
file if you do not want to terminate the 
job when a tape read error cannot be cor- 
rected by the error routine. 



Code Explanation 

IGNORE The block containing the error is 
to be handled as if there were no 
errors (it is included in the 
block count) . 

SKIP The block containing the eirror is 
to be skipped, i.e., it should not 
be made available for processing. 
The next block is read from tape 
and processing continues with the 
first record of that block. How- 
ever, the block containing the 
error is included in the block 
count. 

name This is the name of a routine in 
the problem program to which the 
IOCS should branch on a tape read 
error. When the IOCS branches to 
this routine, the block containing 
the error is in the I/O area. 

In this routine., you must not 
issue any GET macro instructions 
for records in the block contain- 
ing the error because a subsequent 
GET macro instruction referring to 
the file will read the next block 
of records. If you use any other 
IOCS macro instructions in this 
routine, save the contents of 
register 14. At the end of this 
routine, you must return control 
to the IOCS by means of a branch 
to the address contained in reg- 
ister 14. V^hen this return branch 
has been performed, the IOCS exe- 
cutes the instruction following 



the GET macro instruction that 
made the error record available in 
the input area. 



The next GET macro instruction 
referring to the file that con- 
tains the block causing the error 
will make the first record of the 
next block available for process- 
ing. 

Mote ; If., in the error routine, 
yo"u wish to discontinue the proc- 
essing of a program that is a 
mainline program, you must first 
close all disk files. 

This entry also applies to wrong-length 
records if the WLRERR detail entry is not 
included. Absence of. the ERROPT entry 
causes the job to be discontinued automat- 
ically when a permanent read error occurs. 



FILABL=code 

This entry specifies the type of label 
processing to be performed. 

Code Type of Proicessing 

STD For a tape input file, standard 
labels are to be checked. For a 
tape output file, standard labels 
are to be written. 

NSTD Non-standard labels exist. The 
code NSTD is possible for input 
files only. Because the non- 
standard labels are skipped, the 
non-standard label set must be 
terminated by a tapemark. 

NO No labels exist. Note that any 

existing volume label on an output 
file will be overwritten if you 
specify FILABL=NO for an output 
file. 

For a magnetic tape without labels, you can 
omit the FILABL entry. The IOCS then 
assumes that there are no labels. 



IOAREAl=name 

This entry specifies the name of the I/O 
area to be used by the file. This name 
must be the symbol used in the DS or DC 
statement that defines the area in the 
source program. 

If the file contains format-V records, 
reserve four bytes of the I/O area for the 
hlocksize field. The I/O area must be on a 
half word boundary. An IOREG= (register) 
entry is required unless unblocked records 
are processed or a work area is used. 
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I0AREA2=naiTie 

In a Model 20, Submodel 5, you can specify 
two input or output areas for a file to 
permit overlapping of data transfer with 
processing operations. The name must be 
identical with the symbol used in the DS or 
DC statement defining the area in the 
source program. When you use an I0AREA2 
entry you must also specify either lOREG or 
WORKA. The I/O area must be on a halfword 
boundary. If the file contains format-V 
records, reserve 4 bytes of the I/O area 
for the blocksize field. 



IOREG= (register) 

This entry specifies a register that con- 
tains either the address of a logical input 
record that is available for processing or 
the address of the area that is available 
for building the next output record. 
Immediately after the equal sign you must 
specify a register number enclosed in 
parentheses. Any of the registers 8 
through 13 can be used. You may also spec- 
ify (in parentheses) a symbolic name that 
has been equated to one of the registers 8 
through 13. You can use one and the same 
register for several files. 

You must include an lOREG entry in the 
DTFMT file definition statement when: 

• blocked input or output records are 
processed in the I/O area; or 

• variable-length unblocked records are 
read backward and are processed in the 
input area; or 

• I0AREA2, but no WORKA is specified. 

The register specified in the lOREG 
entry is loaded by the IOCS during the 
execution of the Open routine for the file 
concerned. 

A GET (PUT) macro instruction you issue 
for the file causes the IOCS to increment 
the contents of the register specified in 
the lOREG entry by the number of bytes 
contained in the input (output) record. 

Omit this entry if you include a 
WORKA=YES entry in the DTFMT statement for 
the file. 



label or a preceding user label. (Refer to 
the description of the LBRET Macro 
Instruction ) . If this entry is omitted for 
an input file containing user labels, these 
additional labels are not checked. 

For input files., you can determine the 
type of label from the first three bytes of 
the label contained in the IOCS label area. 
For output files, the IOCS indicates the 
type of label that is to be written by 
putting one of the following codes into the 
low-order byte of register 8. 



Code 



c 


•0' 


c 


•F' 


c 


•v 



Type of Label 

Header label (when a file is 

opened) 

End-of-file label (on an end-of- 

file condition) 

End-of-volume label (on an end-of- 

volume condition) 



The high-order byte is blank. 

The IOCS places the address of the IOCS 
label area into register 9 at the time a 
LABADDR routine is being entered. At the 
end of a LABADDR routine, you must issue a 
LBRET macro instruction to return to the 
IOCS. (Refer to the description of the 
LBRET Macro Instruction ) . 

Note: Do not destroy the contents of 
registers 14 and 15. Refer to the discus- 
sion on register usage under P rogramming 
Considerations . 



READ=code 

This entry specifies the direction in which 
an input tape is to be read. If you omit 
the entry, the IOCS assumes forward read- 
ing. 



Code 



Explanation 



FORWARD A magnetic tape is to be read in 
forward direction. 

BACK A magnetic tape is to be read 
backward. However, you cannot 
specify READ=BACK when the tape 
input file contains variable- 
length block records or when the 
entry ALTTAPE is specified for the 
file. 



LABADDR=name 



RECFORM=COde 



You may use up to eight user labels in 
addition to the IBM standard file header or 
trailer labels. If so, write a routine to 
check or build the user label (s). Specify 
the name of the routine in the LABADDR 
entry. The IOCS branches to this routine 
after it has processed the IBM standard 



This entry specifies the record format of 
the file. The IOCS can handle all of the 
different types of records in the same 
program. However, all records in one file 
must be of the same format. If you omit 
the RECFORM entry, the IOCS assumes 
unblocked format-I records. 
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Code 



Record Format 



FIXUNB Unblocked format- F records. 

FIXBLK Blocked forraat-F records. 

VARUNB Unblocked format-V records. 

VARBLK Blocked format-V records. 

UiXIDEF Format-U records. 

For a description of the record formats 
refer to Data Files . 

When variable-length records are speci- 
fied for a tape output file, the I/O area 
must include four additional bytes in which 
the block-length indication is built. If 
these records are unblocked, the four addi- 
tional bytes are used to build the length 
indication for each record since each 
record is at the same time a block. If the 
records are blocked, the four additional 
bytes are used to build the length indica- 
tion for the entire block. The minimum and 
maximum record lengths permitted are as 
shown below. Lengths are given in number 
of bytes. 



Record Type 



FIXUNB 



FIXBLK 



VARUNB* 



VARBLK* 



UNDEF 



Minimum 



Input 1 Output 



+- 



14 



m 



+- 



18 



14 



14 



Maximum 



Input j Output 



4- 



40951 4095 



■+- 



40951 4095 



40911 4091 



4091] 4091 



-+■ 



18 I 40951 4095 
i. i X 



* Excluding the four bytes required 
for record length indication. 



RECSIZE=code 



an input file or to derive from 
its contents the record length of 
an output file. You must place 
the number of bytes contained in 
an output record into the speci- 
fied register before you can issue 
a PUT macro instruction for the 
file. 



Rp]WIND=code 

This entry is used to specify the desired 
rewind and unload operation when an OPEN or 
CLOSE macro instruction is issued or when 
an end-of-volurae or end-of-file condition 
is sensed. 

Code Operation 

UNLOAD Rewind the magnetic tape when an 
OPEN macro instruction is issued, 
and rewind and unload the magnetic 
tape when a CLOSE macro instruc- 
tion is issued or an end-of-volume 
or an end-of-file condition 
occurs. 

NORWD No rewind is desired. This entry 
is mandatory for files to be read 
backward. 

If the REWIND entry is not included, an 
OPEN or CLOSE macro instruction, an end-of- 
volume, or an end-of-file condition causes 
the magnetic tape file to be rewound but 
not unloaded. 



TPMARK=NO 

This entry applies only to unlabeled tape 
output files (FILABL=NO) . If this entry is 
included, it will prevent the writing of a 
taperaark as the first record on a tape. If 
you omit this entry, a tapemark will be 
written as the first record. 



This entry applies to magnetic tape files 
containing either blocked forraat-F or 
forraat-U records. 

Code Explanation 

n The operand n specifies the number 
of bytes in an individual record 
for a tape file containing blocked 
format-F records. 

Cr) For a tape file containing records 
of undefined format, the operand 
(r) specifies a register number 
enclosed in parentheses, or a 
symbolic name (in parentheses) 
that has been equated to a reg- 
ister number. You may use any of 
the registers 8 through 13. The 
IOCS uses the register specified 
to indicate the record length of 



TYPEFLE=Code 

This entry is used to specify the type of 
file (i.e., input or output). 



Code 



Type of File 



INPUT An input file 
OUTPUT An output file 



VARBLD=( register) 

You must specify this entry if you process 
an output file with blocked format-V 
records and if no work area is specified. 
The operand (register) must contain a reg- 
ister number enclosed in parentheses, or a 
symbolic name (in parentheses) that has 
been equated to a register number. Any of 
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the registers 8 through 13 can be speci- 
fied. The contents of the register, which 
are loaded by the IOCS, indicate how many 
bytes are available in the output area for 
building the next record. 



After a PUT macro instruction is issued 
for a foritiat-V record, the IOCS calculates 
the number of bytes still available and 
loads this number into the register speci-. 
fied in the VARBLD entry. You must .then 
compare the length of the next record with 
the available space. If the record will 
not fit, you must issue a TRUNC macro 
instruction to cause the completed block of 
records to be written on the magnetic tape 
file. When the block has been written the 
current record is placed into the beginning 
of the output area and becomes the first 
record in the next, block. For information 
regarding the PUT 'and TRUNC macro instruc- 
tions, refer to the descriptions under PUT 
Macro Instructio n and TRUNC Macro Instruc- 
tion. 



WLRERR=name 

This entry does not apply to files contain- 
ing undefined records. It specifies the 
name of a routine to which the IOCS will 
branch if a wrong-length physical record 
(block) is read. 

When the IOCS branches to the specified 
routine, the I/O area contains the wrong- 
length record. In the routine, you may 
perform any desired operation for wrong- 
length blocks except issuing a GET macro 
instruction that refers to any logical 
record in the wrong-length block, because 
the GET macro instruction following the GET 
that detected the length error makes the 
first record of the next block available 
far processing. A wrong-length block is 
included in the block count. 

Note ; Do not destroy the contents of 
registers 14 and 15. Refer to the discus- 
sion on register usage under Programming 
Considerations . 

At the end of your routine, return to 
the IOCS by providing a branch to the 
address contained in register 14. When 
this return branch has been performed, the 
IOCS executes the instruction following the 
GET that made the wrong- length record 
available for processing. 

Whenever blocked format-F records or 
format-V records are specified 
(RECFORM=FIXBLK, =VARUNB, or =VARBLK) , the 
machine check for wrong- length records is 
ignored, and the IOCS generates a pro- 
grammed check of record length. For 
blocked format-F records, the record length 
is considered incorrect if the block that 



is read is not an integer multiple of the 
record length (specified in the RECSIZE 
entry) up to the maximum length of the 
block (specified in the BLKSIZE entry) . 
This permits short blocks of records to be 
read without a wrong- length record indica- 
tion. 



For format-V records, the record length 
is considered incorrect if the length of 
the block is not the same as the block 
length specified in the first two bytes of 
the block. 



If unblocked format-F recor 
fied (RECFORiyi=FIXUNB) , the IOC 
the machine check to determine 
not a re'cord is of correct len 
fying RECFORM=FIXUNB causes th 
bytes specified in the detail 
to be inserted in the generate 
instructions. Any record whos 
not equal to the specified num 
causes a wrong-length-record i 



ds are speci- 
S utilizes 

whether or 
gth. Speci- 
e number of 
entry BLKSIZE 
d XIO 

e length is 
ber of bytes 
ndication. 



Note that the IOCS does not pj^ovide the 
number of bytes contained in the wrong- 
length record. 

If you omit the WLRERR entry and a 
wrong-length record is detected by the 
IOCS, one of the following results: 

1. If you included the ERROPT entry for 
this file, the IOCS treats the wrong- 
length record as an error block and 
handles it according to your 
specifications for an error (IGNORE, 
SKIP, or branch to the error routine) . 

2. If you omitted the ERROPT entry, the 
job will be terminated. 



WORKA=YES 

This entry specifies that records are to be 
processed in a work area rather than in an 
I/O area. The name in the DS or DC state- 
ment that reserves the work area must be 
used as the second operand of each GET or 
PUT macro instruction for the file. You 
must specify WORKA=YES if you include an 
I0AREA2 entry but omit the lOREG entry. 

Note: Define the work area on a halfword 
boundary if it is used to process blocked 
format-V records. 



Imperative Macro Instructions 

The imperative macro instructions for mag- 
netic tape files are described in the fol- 
lowing order: PUT, GET, CNTRL, TRUNC^ 
RELSE, LBRET, FEOV. For a description of 
OPEN and CLOSE refer to the section 
Instructions for Opening and Closing Files , 
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PUT MACRO INSTRUCTION 

This instruction writes logical records 
that have been built directly in an output 
area or in a specified work area. 



r T T T 

jNarne | Operation! Operands | 

^ 1 _ 1 ^ 

|[name]lPUT | filename [,workname] | 

L 1 . i. , uj 



2. Two Operands Specified . Use this for- 
mat if records are processed in a work 
area. The first operand specifics the name 
of the file. The second operand specifies 
the name of the work area from which 
records are moved to the output area. When 
an output area is full, the IOCS takes the 
data in that output area and writes them 
onto magnetic tape. You can use more than 
one work area if you issue separate PUT 
macro instructions for writing records from 
each work area. 



You can write the PUT macro instruction 
with one or two operands,, depending on the 
area in which the records are built. 

1. One Operand Specified . Use this format 
if output records are to be built directly 
in an I/O area. The operand specifies the 
name of the magnetic tape file in which you 
want to place the record. The file name 
must be the same as the one used in the 
header entry of the DTFMT file definition 
statement. 



If blocked format-V records are built in 
a work area, the PUT routine checks the 
length of the output record to determine 
whether or not the record will fit into the 
remaining por;tion of the output area. If 
it does, the IOCS moves the record into the 
output area. If the record does not fit, 
the PUT routine causes the completed block 
to be written and then moves the record 
into the output area. 

DO not specify IOREG= (register) if you 
use a work area (refer to the description 
of WORKA=.YES under DTFMT Statement) . 



When blocked records are processed 
directly in an output area, the use of an 
I/O register is required (refer to the 
description of the IOREG=( register) detail 
entry under DTFMT Statement ) . After an 
OPEN macro instruction for the file the I/O 
register contains the first available posi- 
tion of the output area. A PUT macro 
instruction causes the IOCS to (1) include 
the current record in a record block and 
(2) change the address in the I/O register 
to identify the next available position of 
the output area in which you can build the 
next record. 



For a file with unblocked records, a PUT 
macro instruction causes the IOCS to write 
the affected record onto magnetic tape. 
You do not need an I/O register when proc- 
essing unblocked records., unless I0AREA2 is 
specified for the file. 



If blocked format-V records are built in 
the output area, specify an additional 
register into which the IOCS places the 
number of bytes that are still available in 
the output area for the next record (refer 
to the VARBLD= (register) entry under DTFMT 
Statement and to the description of the 
TRUNC Macro Instruction ) . 

Note: The IOCS does not clear the output 
area after a PUT macro instruction. To 
avoid having interspersed characters from 
preceding records in your output record, 
use every position of the output area or 
clear the output area after each PUT macro 
instruction that writes a block out on 
magnetic tape. 



Note that the IOCS does not clear the 
work area after a PUT macro instruction. 
You should ensu3;e that no characters from 
preceding records remain in the area either 
by clearing the work area after each PUT 
macro instruction or by using every posi- 
tion of the work area. 



GET MACRO INSTRUCTION 

This macro instruction makes the next 
sequential logical record from a magnetic 
tape input file available for processing in 
either an input area or a specified work 
area. 



When an end-of-file condition is detect- 
ed, the IOCS transfers control to the end- 
of-file routine specified by the EOFADDR 
entry in the DTFMT statement. 



The GET macro instruction may cause a 
read- forward or a read-backward operation. 
Specify the type of read operation by the 
READ=code entry in the DTFMT statement. 

r T T 1 

jName | Operation | Operands | 

^ 1 1 ^ 

I [name] I GET | filename [ ,workname] | 

L X J. , J 



You can write the GET macro instruction 
with either one or two operands, depending 
on the area in which the records are 
processed. 
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1. One Operand Specified . Use this format 
if records are to be processed directly in 
an input area. The operand specifies the 
name of the file from which the record is 
to be read. This name must be the same as 
the one you used in the DTFMT statement for 
the file. 



When blocked records are pr 
input area, you must specify a 
ister that the IOCS needs to i 
next record to be processed, 
description of the IOREG=(regi 
under DTFMT Statement ). This 
always contains the address of 
ly available record. The GET 
es the proper address into the 
ister. 



ocessed in an 
n I/O reg- 
dentify the 
(Refer to the 
ster) entry 
I/O register 

the current- 
routine plac- 

1/0 reg- 



No I/O register is needed for a file 
with unblocked records, unless I0AREA2 is 
specified for the file. 

2. Two Operands Specified . Use this for- 
m£it if records are to be processed in a 
work area. The first operand specifies the 
name of the file. The second operand spe- 
cifies the symbolic name of the work area 
to be used (refer to the description of the 
WORKA=YES entry under DTFMT Statement ) . 
You can specify more than one work area for 
a file if you issue separate GET macro 
instructions to move the records into the 
different work areas (only one work area 
can be specified in any one GET macro 
instruction) . It might be advantageous to 
plan two work areas, and to specify each 
area in alternate GET macro instructions. 
This allows you to determine a possible 
change in the control level by comparing 
each record with the preceding one. 

An I/O register must not be used when 
the records are processed in a work area. 



CNTRL MACRO INSTRUCTION 

The CNTRL macro instruction is used to 
control magnetic tape functions that are 
not concerned with reading data from, or 
writing data on, the magnetic tape. 
Include a CONTROL=YES entry in the DTFMT 
file definition statement if you issue a 
CNTRL macro instruction for the file. 

r T T 1 

jName |Operationl Operands I 

J. 1 1 ^ 

I [name] I CNTRL | filename, code | 

L J. . X . , J 

The control macro instruction contains 
CNTRL in the operation field,, and the name 
of the tape file for which the operation is 
described as the first operand. As a sec- 
ond operand, enter one of the mnemonics 
listed below to specify the operation. 



j Operand 
I (Code) 
f 

JBSF 

I 

j. 



-+■ 



4- 



BSR 



-+ 



CRG 



I— ,. 

|FSF 



FSR 



-+ 



JREW 

f 

l-RUN 

1— - 
jWTM 
L 



■I 



Operation 



Backspace file, i.e., backspace 
tape to preceding tapemark 



Backspace record, i.e., back- 
space tape to preceding inter- 
block gap 



■+- 



Erase gap, i.e., erase tape to 
produce a gap 



Forward space file, 

i.e., forward space tape to 

next tapemark 



Forwar;d space record, 

i.e., forward space tape to 

next interblock gap 



Rewind tape 



Rewind and unload tape 



Write a tapemark 



BSF (Backspace File) . Use this mnemonic if 
you want to backspace the tape file. When 
a CNTRL macro instruction with BSF as the 
second operand is executed, the IOCS causes 
the tape to be stopped at the tapemark 
preceding, the first data record of the 
file. In the case of an input file, the 
tapemark is read during the next read- 
forward operation and the program then 
branches to your end-of-file routine. In 
the case of an output file, the next PUT 
macro instruction that refers to the file 
causes the tapemark to be overwritten. 

BSR (Backspace Record). Use this mnemonic 
if you want to backspace a tape file by one 
block. When a CNTRL macro instruction with 
BSR as the second operand is executed, the 
IOCS causes the tape to be stopped at the 
block just backspaced in the proper 
position for re-reading during the next 
read- forward operation. The IOCS immedi- 
ately biranches to your end-of-file routine 
if the operand BSR refers to an input file 
and a tapemark is detected when the macro 
instruction has been executed. 

ERG ( Erase Gap) : Use this mnemonic if you 

want to erase all signals that may be 
recorded on a section of tape; i.e., a 
length of blank tape (approximately 3 1/2 
inches) is created. 

FSF. (Forward Space File). Use this mnemon- 
ic if you want to skip the remaining part 
or all of a tape input file. When a CNTRL 
macro instruction with FSF as the second 
operand is executed, the IOCS causes the 
tape to be stopped immediately beyond the 
tapemark that follows the trailer label set 
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(if any) . In the case of a file without 
labels or with non-standard labels, the 
tape is stopped immediately beyond the 
tapemark that follows the last block of 
data. The IOCS branches to your end-of- 
file routine when the tapemark following 
the last data record has been encountered. 

FSR (Forward Space Record) . Use this 
mnemonic if you want to skip one block. 
When a CNTRL macro instruction with FSR as 
the second operand is executed, the IOCS 
causes the tape to be stopped at the begin- 
ning of the block following the one just 
skipped. This is the proper position for 
reading during the next read-forward opera- 
tion. The IOCS immediately branches to 
your end-of-file routine if the operand FSR 
refers to an input file and a tapemark is 
detected when the CNTRL macro instruction 
has been executed. 

RE.W (Rewind Tape) . Use this mnemonic if 
you want to rewind a tape. When a CNTRL 
macro instruction with REW as the second 
operand is executed, the IOCS causes the 
tape to be stopped at the first record on 
the tape. This is the proper position for 
reading during a read-forward operation. 
The record may be (1) a volume label if 
standard labels have been specified, (2) a 
tapemark or a data record if no labels have 
been specified, or (3) a non-standard label 
if non-standard labels have been specified. 

RUN (Rewind and Unload Tape) : Use this 
mnemonic if you want to rewind and unload a 
tape. 

WTM (Write Tapemark) ; Use this mnemonic if 
you want a tapemark to be written. 

Special Considerations for BSR and FS R 

When you issue a CNTRL macro instruction 
for a tape input file with BSR or FSR as 
the second operand, you must consider the 
relative position of the tape to the record 
being processed. 

Unblocked Records and No Work Area. When a 
CNTRL macro instruction with BSR as the 
second operand refers to 

(1) a file that is read forward, the tape 
is positioned so that the record being 
processed is in the proper position to 
be re-read during the next read-forward 
operation; 

(2) a file that is read backward, the tape 
is positioned so that the second record 
stored on the tape behind the one being 
processed is in the proper position to 
be read during the next read-backward 
operation. 

When a CNTRL macro instruction with FSR as 
the second operand refers to 



(1) a file that is read forward, the tape 
is positioned so that the second record 
following the one being processed is in 
the proper position to be read during 
the next read-forward operation; 

(2) a file that is read backward, the tape 
is positioned so that the record being 
processed is in the proper position to 
be re-read during the next read- 
backward operation. 



Unblocked Records and a Work Area. When a 
CNTRL macro instruction with BSR or FSR as 
the second operand is executed, the tape is 
in the same position as if no work area 
were used. 

Blocked Records and No Work Area. When a 
CNTRL mafcro instruction with BSR as the 
second operand refers to 

(1) a file that is read forward, the tape 
is positioned so that the block in the 
input area is in the proper position to 
be re-read during the next read-forward 
opei;ation; 

(2) a file that is read backward, the tape 
is positioned so that the second block 
stored on the tape behind the one 
currently in the input area is in the 
proper position to be read during the 
next read-backward operation. 

When a CNTRL macro instruction with FSR as 
the second operand refers to 

(1) a file that is read forward, the tape 
is positioned so that the second block 
following the one currently contained 
in the ir^put area is in the proper 
position to be read during the next 
read-forward operation; 

(2) a file that is read backward, the tape 
is positioned so that the block in the 
input area is in the proper position to 
be re-read during the next read- 
backward operation. 

Blocked Records and a Work Area. A CNTRL 
macro instruction with BSR or FSR as the 
second operand causes the tape to be 
positioned as if no work area were used, 
except when the last record of a block is 
being processed. In this case, the tape is 
positioned as described below. 

1. When a CNTRL macro instruction with BSR 
as the second operand refers to 

(a) a file that is read forward, the 
tape is positioned so that the 
block following the block whose 
last record is currently being 
processed is read during the next 
read- forward operation; 
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(b) a file that is read backward, the 
tape is positioned so that the 
third block stored on the tape 
behind the block whose last record 
is currently being processed is 
read during the next read-backward 
operation. 

2. When a CNTRL macro instruction with FSR 
as the second operand refers to 

(a) a file that. is read forward, the 
tape is positioned so that the 
third block following the block 
whose last record is currently 
being processed is read during the 
next read-forward operation; 

(b) a file that is read backward., the 
tape is positioned so that the 
block stored on the tape behind the 
block whose last record is current- 
ly being processed is read during 
the next read-backward operation. 

For tape output files with blocked 
records, you should issue a TRUNC macro 
instruction if a partially filled block of 
records is to be written on magnetic tape 
before a CNTRL macro instruction for the 
file is issued. 

Effect of CNTRL on Block Count 

When a CNTRL macro instruction with BSF, 
BSR, FSF, or FSR as the second operand is 
issued, the block count written or checked 
when using standard labels may be wrong. 
The control routine does not update the 
block count. If a tape input file with 
standard labels is specified and the block 
count is incorrect at the end of the volume 
or file, a programmed halt occurs. 



TRUNC MACRO INSTRUCTION 



The last rrecord included in the short 
block is the record that was built before 
the last PUT instruction preceding TRUNC 
was executed.. Therefore, if you build 
records in a work area and you determine in 
the problem program that a record belongs 
to a new block, issue a TRUNC macro 
instruction ;£ollowed by a PUT macro 
instruction for this particular record. 
However, if you build the records in the 
output area, determine whether or not a 
record belongs to a new block and, if so, 
issue a TRUNC macro instruction before you 
build the record. 

Whenever variable- length blocked records 
are built directly in the output area, you 
must use the TRUNC macro instruction to 
write a completed block of records. When 
you issue the PUT macro instruction after 
each variable-length record is built, the 
output i;outines supply the number of bytes 
remaining in the output area. From this, 
you can determine if the next variable- 
length record will fit in the block. If 
not, issue the TRUNC macro instruction to 
write out the block and make the entire 
output area available for building the 
record. The amount of remaining space is 
supplied in the register specified in the 
VARBLD entry (see VARBLD= (register) in the 
description of the DTFMT Statement ) . 

A TRUNC miacro instruction causes no 
operation if the preceding PUT 

• is issued after the last record of a 
block has been built in the output area; 

• causes the last record of a block to be 
moved from a work area to the output 
area for inclusion in the block. 

In either case the entire block is written 
onto magnetic tape by the PUT macro 
instruction. 



r T T ■ 1 

I Name 1 Operation | Operand | 

)._. 1 1 ^ 

I [name] I TRUNC | filename | 

L X X J 

The name of the file to which this macro 
instruction (TRUNCate) refers is the only 
operand required. 

Use this macro instruction when blocked 
output records are to be written onto mag- 
netic tape. It may be issued for either 
fixed- or variable-length blocked records. 
When you issue a TRUNC macro instruction, 
the output area being used to build output 
records is considered full. The block of 
records in the output area is then written 
onto magnetic tape (as a short block) and 
the output area is made available for 
building the next block of records. 



RELSE MACRO INSTRUCTION 

r T T T 

I Name ] Operation ] Operand | 

j. 1 1 ^ 

I [name] I RELSE | filename | 

L X X J 

The name of the file to which this macro 
instruction ( REL eaSE) refers is the only 
operand required. 

You may use this macro instruction when 
reading blocked input records from magnetic 
tape. RELSE allows you to skip the remain- 
ing records in a block and continue proc- 
essing with the first record of the next 
block, which is read when the next GET 
macro instruction is executed. 
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The RELSE macro instruction can be used, 
for instance, in a job in which only the 
first three records of each block on mag- 
netic tape are to be processed. In this 
case you must issue three successive GET 
macro instructions followed by a RELSE 
macro instruction. 

Another example of using the RELSE macro 
instruction is a job in which records on 
magnetic tape are categorized, and each 
category (perhaps a major grouping) begins 
with the first record of a block. Categor- 
ies can be' located readily by checking only 
the first record of each block. 

The RELSE macro instruction discontinues 
deblocking of the current block of records, 
which may be either of fixed or variable 
length. RELSE causes the next GET macro 
instruction to transfer a new block to the 
input area and make the first record avail- 
able for processing. This GET macro 
instruction initializes the I/O register or 
moves the first record to a work area. 



LBRET MACRO INSTRUCTION 

r T T 1 

[Name | Operation | Operand | 

l- 1 1 ^ 

I I LBRET I 1 1 

I I LBRET I 2 I 

L X i. , J 

This macro instruction (LaBel RET urn) 
applies only to magnetic tape files con- 
taining standard user-labels (UHL and/or 
UTL) that are to be checked or written. 
You must issue a LBRET macro instruction at 
the end of your label routine (specified by 
the LABADDR entry in the DTFMT statement 
for the file) to return to the IOCS after 
label processing. 

Specify the operand 1 to return to the 
IOCS if: 

1. an input file with user labels is being 
processed and control is to be returned 
to the IOCS to eliminate the checking 
of one or more user labels. The IOCS 
then skips the remaining labels in the 
set and processing continues. 

2. an output file with user labels is 
being processed and control is to be 
returned to the IOCS when the last user 
label has been built. The IOCS writes 
the last label (from the label output 
area) and processing continues. A 
LBRET macro instruction with a 1 in the 
operand field is always required to 
terminate an output label set. 

Specify the operand 2 to cause further 
label processing for: 



1. an input file with standard user labels 
to return to the IOCS after each label 
has been checked. Then the IOCS makes 
the next label, if any, available for 
checkinjg in the label input area. When 
the IOCS reads the tapemark following 
the label set, it terminates label 
processing. 

2. output files with user labels to return 
to the IOCS after each label, except 
the last, has been built. The IOCS 
causes the writing of the label con- 
tained in the label output area. The 
IOCS then returns to the LABADDR label 
routine to allow you to build the next 
label. The label set is terminated by 
issuing a LBRET macro instruction with 
the operand 1. For details on writing 
standard labels under control of the 
IOCS, refer to the description of the 
LABADDR entry under DTFMT Statement . 

The IOCS requires the values it places 
into registers 14 and 15 before transfer- 
ring control to the LABADDR routine. 
Hence, if you want to use one or both of 
these registers in the LABADDR routine, 
save their contents before you begin using 
them. In addition, you must restore these 
contents before issuing the LBRET macro 
instruction. 



FEOV MACRO INSTRUCTION 

This macro instruction (Force End Of 
Volume) is used for tape input or output 
files to force an end-of-volume condition 
at a point other; than the normal tapemark 
(input) or the reflective marker (output). 
This indicates that the processing of 
records on one volume is considered fin- 
ished, but that more records for the same 
logical file are to be read from or written 
into the following volume. 

r T T 1 

jNarae [Operation [Operand | 

|. 1 1 ^ 

1 [name] I FEOV [filename | 

L X X J 

The operand contains the name of the 
file to which this macro instruction per- 
tains; the name must be the same as the one 
specified in the header entry of the DTFMT 
statement for the file. 

When you issue this macro instruction 
for an input tape, the IOCS 

1. causes the execution of the operation 
specified in the REWIND entry, 

2. switches to the next reel on another 
drive in accordance with the ALTTAPE 
detail entry in the DTFlyiT statement for 
the file; and 
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3. processes the header label (or labels) 
as required. 



processes the header label (or labels) 
as required. 



When you issue the FEOV macro instruc- 
tion for an output tape, the IOCS causes 
the last block of records to be written, if 
necessary, and writes a tapemark. Then 
the IOCS 

1. causes the writing of the standard 
trailer label including the accumulated 
block count,, and branches to the 
LABADDR routine if this is specified; 

2. switches to the next reel in accordance 
with the ALTTAPE detail entry in the 
DTFMT statement for the file; and 



The following example illustrates the 
use of the FEOV macro instruction. 

If FILABL=NSTD or FILABL=NO has been 
specified for a multi-volume input file, 
the IOCS cannot detect an end-of-volume 
condition. When a tapemark is detected, 
the IOCS transfers control to the EOFADDR 
routine, in which you must determine 
whether or not an end-of-volume condition 
exists. If so, issue a FEOV macro instruc- 
tion to have the IOCS perform the end-of- 
volume functions in accordance with the 
detail entries. 
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Instructions for Processing Sequential Disk Files 



The IOCS provides routines for processing 
records of sequential disk files. To 
utilize the IOCS functions, you must des- 
cribe your sequential disk file in the 
problem program using the DTFSD file defi- 
nition statement, and issue the appropriate 
imperative macro instructions to perform 
the desired I/O operations. 

All records in sequential disk files 
must be blocked or unblocked format- F 
records . 



DTFSD Statement 

This file definition statement applies to 
sequential disk files only. The name field 
of the header entry must contain the name 
of the file and the operation field must 
contain DTFSD. For ease of reference, the 
detail entries to be made in the operand 
field are described below in alphabetical 
order. 



BLKSIZE=n 

The operand n specifies the length of the 
blocks (in number of bytes) that the IOCS 
reads or writes. The maximum 3LKSIZE you 
are allowed to specify is 2700 for blocked 
records and 409 6 for unblocked records. 

The specified length must be a multiple 
of the record length. Since the IBM 2 311 
Disk Storage Drive uses a fixed sector 
length of 27 bytes, the IOCS adjusts the 
specified block length to the next higher 
integer multiple of 270. You must take 
this into consideration when defining the 
I/O area in the problem program. In the 
format-1 file label, however, the original- 
ly specified block length, not the adjusted 
block length, is entered. 

Some block sizes could cause a cylinder 
overflow, i.e., not all sectors belonging 
to one block would be written on the same 
cylinder. The IOCS automatically avoids 
this situation. A block that would cause a 
cylinder overflow is written as the first 
block of the next cylinder. One or more 
sectors of the full cylinder may remain 
unused. If the writing of a block would 
cause an extent overflow, the same tech- 
nique is used, i.e., the block is written 
as the first block of the next extent (if 
available) . 

The block size of input and correspond- 
ing output files should not be different. 



COMROUT=YES 

This optional entry indicates that a common 
IOCS routine is to be generated for several 
files of the same type processed by the 
same problem program. I/O routines that 
fall into this category are (1) input rou- 
tines, (2) update routines, and (3) output 
routines. 

By generating a common routine for sev- 
eral files it is possible to reduce the 
amount of main storage required for the 
simultaneous processing of three or more 
files of the same type e.g.,, three output 
files. If only two files are processed 
simultaneously, the amount of main storage 
required is not reduced. In some cases, it 
is even increased. 



CONTROL=YES 

This entry is re,quired if a CNTRL macro 
instruction is issued for the file. The 
CNTRL maGro instruction can be used to 
initiate a seek operation. Note that this 
entry is ignored if you specify two I/O 
areas for the file. 



DEVICE=DISK11F 

This entry specifies that a fixed-sector 
IBM 2311 Disk Storage Drive (Model 11 or 
12) is used as I/O device for the 
sequential-access file. If this entry is 
omitted or mispunched, the IOCS assumes the 
correct device and issues a warning to the 
opeo^ator. 



DSKXTNT=n 

The number 
of extents 
the file. 
IOCS assume 
for the fil 
tion to res 
the address 
saved. The 
mitted is 9 



n specifies the maximum number 
in any one of the volumes for 
If the entry is omitted, the 
s that there are three extents 
e. The IOCS uses this informa- 
erve the storage area in which 
es of the extent boundaries are 
maximum number of extents per- 
9 per file. 



DTAREX=narae 

This entry applies to output files only. 
If the last extent of the last volume is 
filled with data, control is transferred to 
the routine specified in the optional entry 
DTAREX=name. If you have not specified a 
routine, the job is discontinued. The 
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routine specified in the DTAREX entry must 
contain the necessary CLOSE macro 
instruction (s) . For a mainline program 
this includes the closing of all disk 
files. 



EOFADDR=name 

The EOFADDR entry is mandatory for all 
input files. This entry specifies the name 
of the routine in the problem program to 
which the IOCS branches when an end-of-file 
condition occurs. In that routine, you can 
perform any operation required for the end 
of the file. Usually a CLOSE macro 
instruction is issued. 



If you issue a GET or PUT macro instruc- 
tion in your end-of-file routine, a halt 
occurs. This halt permits no restart 
unless you process an update file. In the 
case of an update file, you can make a 
restart and continue processing. This 
allows you to update, i.e., extend, the 
file beyond the EOF record by issuing a GET 
macro instruction to read a pseudo record. 
Replace this pseudo record by the record to 
be added to the file. A subsequent PUT 
macro instruction writes the added record 
onto disk. After all records have been 
added to the file, you must simulate an 
end-of-file condition. 



An end-of-file condition is detected 
when the end-of-file record containing /*b 

(where b = blank) in the first three bytes 
is read. An end-of-file condition in an 
input file can also be detected by an 
extent overflow, in case there was not 
sufficient space for the end-of-file record 
within the extent when the file was written 

(see the detail entry DTAREX) . 

Note : If, in the end-of-file routine, you 
want to discontinue/terminate the process- 
ing of a program that is a mainline pro- 
gram, you must first close all disk files. 



ERRIO=name 

This entry specifies the symbolic name of a 
two-byte area in which the IOCS places the 
address of the I/O area containing a block 
that caused an irrecoverable read or write 
error. Use this entry only if you also 
specify ERROPT=name and two I/O areas. 



ERROPT=code 

Use this entry if you do not want to dis- 
continue a job in case a disk read or write 
error cannot be corrected by the error 
routine. 



Code Explanation 

SKIP The record block containing the 
error is to be skipped, i.e., an 
input block should not be made 
available for processing. This 
specification is not permitted for 
output files, nor for input files 
that are to be updated. 

name This is the name of a routine to 
which the IOCS should branch on a 
disk error. An 8-byte error block 
that contains information on the 
type of error is made available to 
the problem program. 

In the error routine, do not issue 
any GET or PUT macro instructions 
for records in the block that 
caused the read or write error, 
because a subsequent GET or PUT 
macro instruction referring to the 
file will skip that block and 
process the next block. To branch 
back to the next sequential 
instruction following the GET, 
PUT, or CNTRL macro instruction 
which recognized the error, use 
the return address in register 14. 

The IOCS provides the address of 
the 8-byte error block in a stor- 
age area to which you can refer by 
using a symbolic address consist- 
ing of the name of the file plus 
an A-suffix. If, for example, the 
name of the file involved is 
PAYROLL, the address of the error 
block is made available to the 
problem program in the storage 
area PAYROLLA. If you did not 
specify ERRIO=name, the IOCS plac- 
es the address of the error block 
into the storage area PAYROLLA-4 . 

Note : If, in the error routine, 
you want to discontinue the proc- 
essing of a program that is a 
mainline program, you must first 
close all disk files. 

The 8-byte error block contains informa- 
tion on the type of error, the disk address 
where the error occurred, etc. The struc- 
ture of the error block is as follows: 

Byte — first byte of sense information 
(status byte) ; indicates the 
following if the corresponding 
bit is on: 

Bit 0: not used — set to zero 
1 : intervention required 
2: end of cylinder 
3: equipment check 
4 : data check 
5: seek check 
6: no record found 
7: track-condition check 



66 



Byte 1 — residual sector count 

This byte indicates the number 
of sectors that could not be 
processed by a multi-sector I/O 
operation 
Byte 2 — unit status of Channel Status 
Word (CSW) ; indicates the fol- 
lowing if the corresponding bit 
is on: 

Bit 0: not-equal scan 

1 : status modifier 

2: not used — set to zero 

3 : busy 

4: channel end 

5: device end 

6 : unit check 

7: not used — set to zero 

Byte 3 — used by the IOCS 

Byte 4 -- displacement of Channel Command 
Word (CCW) 

This number is added to the CCW 
address (bytes 6-7) to compute 
the actual address of the CCW 
for this operation. 

Byte 5 — Logical Unit Block (LUB) dis- 
placement 

Byte 6-7 - CCW address 

Additional information about the opera- 
tion in error can be derived from the CCW 
itself. 

The sum of the CCW address (bytes 6-7) 
and the CCW displacement (byte 4) is the 
actual address of the CCW. 



If you omit the entry ERROPT=code, the 
job will be discontinued automatically when 
a permanent disk error is detected. 



IOAREAl=name 

This entry specifies the name of the I/O 
area to be used by the file. The name must 
be the symbol you specified in the DS or DC 
statement defining the area in the source 
program. For additional information 
regarding the use of the I/O area, see I/O 
Areas under Overlapping and Storage Areas . 

The length of the area must be equal to 
270 bytes or an integer multiple thereof. 
If the calculated length is not equal to 
270 or an integer multiple thereof, use the 
next larger value allowed. 



I0AREA2=name 

Two input or output areas can be specified 
for a file, to permit overlapping of data 
transfer with processing operations in a 
Model 20, Submodel 5. The I0AREA2 entry 
must specify a symbolic name identical with 
the one used in the DS or DC statement that 
sets up the second I/O area. Both I/O 
areas must be of the same length. 



The length of the area must be 270 bytes 
or an integer multiple thereof. 



If two I/O areas are used for disk 
files, you must also specify a work area or 
include the entry IOREG= (register) . 



CCW Byte : command code 

Byte 1 : bit = CCW chaining 
indicator 

bits 1-7 = sector count 
Bytes 2-3: data address (I/O area) 
Bytes 4-5: count- area address 
Count Byte 0: not used 
Area Bytes 1-2: cylinder address 
Bytes 3-4: head address 
Byte 5: sector (record) number 

For a more detailed description of this 
error information refer to the SRL publica- 
tion IBM Svstem/36 Model 20, Functional 
Characteristics , Form A26-5847. Save the 
error information (contained in the, 
count-area) , the disk address of the block 
that caused the error, and the contents of 
the I/O area, because this information is 
essential when an alternate track must be 
assigned to replace a defective track. In 
some cases, a recovery and restart proce- 
dure may not be possible. For this reason, 
you should always maintain a duplicate of 
every file used in the installation. 



IOREG= (register) 

This entry specifies a register which con- 
tains either the address of an input record 
that is available for processing or the 
address of an output area in which you can 
build your next record. As operand, you 
may specify any of the registers 8 through 
13 (enclosed in parentheses) or a symbolic 
name (in parentheses) that has been equated 
to one of the registers 8 through 13. You 
can use the same register for several 
files. 



You must include an lOREG entry when 
blocked input or output records are proc- 
essed in the I/O area. 



For a file with unblocked records, you 
can omit the lOREG entry, unless you use 
two I/O areas. In that case you must spec- 
ify either WORKA=YES or lOREG. However, do 
not issue lOREG together with WORKA=YES. 
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RECFORM=code 



This entry specifies the record format of 
the file. The IOCS can handle both possi- 
ble formats of records in the same program. 
However, all records in a given file must 
be of the same format. If this entry is 
omitted, the IOCS assumes unblocked 
format-F records. 



Code 

FIXUNB 
FIXBLK 

RECSIZE=n 



Record Format 

Unblocked format-F records 
Blocked format-F records 



This entry specifies the number of bytes in 
an individual record. The maximum record 
length is 4096 bytes. If records are 
unblocked, this entry may be omitted. In 
this case, the record length is assumed to 
equal the block length specified in the 
detail entry BLKSIZE. 

TYPEFLE=code 

This entry is used to specify the type of 
file. 



Whenever two I/O areas are used for 
unblocked records, either the WORKA entry 
or the lOREG entry must be used. For addi- 
tional information regarding the use and 
length of a work area, see the section 
Overlapping and Storage Area s. 



Imperative Macro Instructions 

The imperative macro instructions for 
sequential disk files are described in the 
following order: PUT, GET, CNTRL. For a 
description of OPEN and CLOSE refer to the 
section Instructions for Opening and Clos- 
ing Files . 



PUT MACRO INSTRUCTION 

This instruction writes logical records 
that have been built directly in an output 
area or in a specified work area. 



r T T 1 

I Name [Operation 1 Operands | 

j._^ 1 1 ^ ^ 

|[name]|PUT j filename [ ,workname] | 

L 1 X J 



Code 



Type of File 



INPUT An input file 
OUTPUT An output file 

UPDATE=YES 

This entry specifies that an input file is 
to be updated. When this entry is includ- 
ed, a PUT macro instruction will replace, 
on disk, the record retrieved by the 
preceding GET macro instruction, 

VERIFy=NO 

You can use this entry only for output 
files. When it is specified, the output 
records are not checked. When it is omit- 
ted, all records written onto disk are 
verified; if a write error is detected, the 
IOCS attempts to recover the error as des- 
cribed in the section Device Error Recov- 
ery . 

Although more processing timie is needed 
when the records are verified,, you are 
strongly recommended to omit the entry 
VERIFY=NO unless yo^^ require maximum 
throughput. 

WORKA=YES 

This entry specifies that records are to be 
processed in a work area rather than in an 
I/O area. The symbolic name used in the DS 
or DC statement that reserves the work area 
must be used as the second operand of each 
GET or PUT macro instruction for the file. 



You can write the PUT macro instruction 
with one or two operands, depending on the 
area in which the records are built. 

1. One Operand Specified . Use this format 
if records are to be processed directly in 
an I/O area. The operand specifies the 
name of the file in which you want to place 
the record. The file name must be the same 
as the one used in the header entry of the 
DTFSD file definition statement. 

When blocked records are processed 
directly in an output area, the use of an 
I/O register is required (refer to the 
description of the IOREG= (register) detail 
entry under DTFSD Statement ) . For a file 
with blocked records, a PUT macro instruc- 
tion causes the IOCS to (1) include the 
affected record in a record block and (2) 
change the address in the I/O register to 
identify the next available position of the 
output area in which you can build the next 
record. After an OPEN macro instruction 
the I/O register contains the first avail- 
able position of the output area. 

For a file with unblocked records, a PUT 
macro instruction causes the IOCS to write 
the affected record onto disk. If two I/O 
areas are specified an I/O register or the 
WORKA=YES entry is required. 

Note: The IOCS does not clear the output 
area after a PUT macro instruction. To 
avoid having interspersed characters from 
preceding records in your output record,, 
use every position of the output area. 
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2. Two Operands Specified . Use this for- 
iriat if records are processed in a work 
area. The first operand specifies the name 
of the file. The second operand specifies 
the name of the work area from which 
records are moved to the output area. When 
an output area is full,, the IOCS takes the 
data in that output area and writes them 
onto disk. You can use more than one work 
area if you issue separate PUT macro 
instructions for writing records from each 
work area. 



Do not specify IOREG= (register) if you 
use a work area (refer to the description 
of the WORKA=YES entry under DTFSD 
Statement) . 

Note that the IOCS does not clear the work 
area after a PUT macro instruction. You 
should ensure that no characters from 
preceding records remain in the area either 
by clearing the work area after each PUT 
macro instruction or by using every posi- 
tion of the work area. 



curr;ently available record. The GET rou- 
tine pla'ces the proper address into the I/O 
register. 



No I/O register is needed for a file 
with unblocked records, unless two I/O 
areas are specified. 

2. Two Operands Specified . Use this for- 
mat if records are to be to be processed in 
a work area. The first operand specifies 
the name of the file. The second operand 
specifies the symbolic name of the work 
area to be used (refer to the description 
of the WORKA=.YES entry under DTFSD 
Statement ) . You can specify more than one 
work area for a file if you issue separate 
GET macro instructions to move the records 
to the different work areas. It might be 
advantageous to plan two work areas, and to 
ispecify each area in alternate GET macro 
instructions. This allows you, for 
instance,, to determine a possible change in 
the control level by comparing each record 
with the preceding one. 

Do not specify IOREG= (register) together 
with WORK A= YES. 



GET MACRO INSTRUCTION 



This macro instruction makes the next 
sequential logical record from an input 
file available for processing in either an 
input area or a specified work area« 

When an end-of-file condition or an 
extent end condition is detected,, the IOCS 
transfers control to the end-of-file rou- 
tine specified by the EOFADDR entry in the 
DTFSD statement. 



r T T 1 

I Name [Operation | Operands | 

j. 1 1 „ ^ 

|[name]|GET I filename [,workname] | 

L JL 1 . J 

You can write the GET macro instruction 
with either one or two operands, depending 
on the area in which the records arei proc- 
essed. 

1. One Operand Specified . Use this format 
if records are to be processed directly in 
an input area. The operand specifies the 
name of the file from which the record is 
to be read. This name must be the same as 
the one you used in the header entry of the 
DTFSD statement for the file. 

When blocked records are processed in an 
input area, you must specify an I/O reg- 
ister that the IOCS needs to identify the 
next record to be processed. (Refer to the 
description of the IOREG= (register) entry 
in the section DTFSD Statement ) . This I/O 
register always contains the address of the 



CNTRL MACRO INSTRUCTION 

The CNTRL macro instruction is used to 
initiate a seek operation. You must 
include a CONTR0L=YES entry in the DTFSD 
file definition statement if you issue a 
CNTRL macro instruction for the file. 

P _^ ^ ^ 

iName 1 Operation | Operands | 

|. „| 1 ^ 

1 [name] I CNTRL 1 filename, SEEK j 

L _X . X . J 

The control macro instruction contains 
CNTRL in the operation field, and the name 
of the disk file for which the operation is 
specified as the first operand. The second 
operand is SEEK. 

The CNTRL macro instruction initiates 
the access movement for the next GET or PUT 
macro instruction for a file. While the 
access arm is moving, you may process data 
and/or request I/O operations on other 
devices. The CNTRL macro instruction caus- 
es the IOCS to seek the track that contains 
(or should .contain) the next block of the 
file. However, the CNTRL macro instruction 
does not prevent the execution of the seek 
operation initiated by the GET/PUT routine. 



Note; If two I/O areas are used, a CNTRL 
macro instruction is treated as a no- 
operation instruction. 



Instructions for P:pocessing Sequential Disk Files 
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Instructions for Processing Direct-Access Disk! Files 



The direct-access method of file 
organization allows you to process records 
in random and sequential order. However, 
when processing a direct-access file 
sequentially you must observe certain res- 
trictions (see Note under the detail entry 
BLKSIZE=n of the DTFDA statement) . 



Even though the length of the program is 
inci;eased when the addresses are checked, 
you are recommended to omit the entry 
ADRTEST=NC. 



BLKSIZE=n 



The IOCS locates the records to be proc- 
essed by referring to their physical disk 
addresses, which you must supply in the 
problem program. Direct-access files apply 
to disk only. You must describe your 
direct-access file using the DTFDA file 
definition statement, and issue the proper 
imperative macro instructions to perform 
the desired I/O operations. 

Records in direct-access files must be 
unblocked format-F records, one or more 
sectors in length. If you want to apply 
the direct-access method to a file contain- 
ing blocked format-F records (more than one 
logical record in one physical record) you 
must provide for the blocking and deblock- 
ing of records in the problem program. 



This entry is mandatory and specifies the 
length of the blocks (in bytes) the IOCS is 
to read or write. The maximum block length 
you may specify is 16200. Since unblocked 
format-F is the only type of record permit- 
ted for direct-access files, you must pro- 
vide for any blocking or deblocking of 
records in your problem prograir. 

In defining the I/O area in the problem 
program, keep in mind that the IBM 2311 
uses a fixed sector length of 270 bytes. 

Some block sizes cause a cylinder over- 
flow, i.e., not all sectors belonging to 
one block can be written on the same cylin- 
der. The IOCS automatically continues this 
block on the next cylinder, provided this 
does not lead to an extent overflow. 



Supply the disk storage location from 
which a record is to be read, or into which 
it is to be written, by specifying track 
and record references as, described under 
Cylinder, Track and Record References . 



DTFDA Statement 

This file definition statement applies only 
to direct-access files. The name field of 
the header entry must contain the name of 
the file and the operation field must con- 
tain DTFDA. For ease of reference, the 
detail entries to be entered in the operand 
field are described below in alphabetical 
order. 



Note ; Since the actions the IOCS performs 
for direct-access files and for sequential 
files differ in case of a cylinder over- 
flow, you must ensure that no cylinder 
overflow occurs if you process a direct- 
access file sequentially. You can avoid a 
cylinder overflow if the number of sectors 
contained in a block is either 1^ 2, 5 or 
10. If the file starts at the beginning of 
a cylinder, the number of sectors can also 
be 4, 20, 25, or 50. 

If the reading or writing of a block 
causes an e^xtent overflow, the READ or 
WRITE macro instruction is not executed and 
bit of the first error byte (see ERRBYTE 
entry) is set to indicate this condition. 



ADRTEST=NO 

When ADRTEST=NO is specified, the IOCS does 
not check whether the address specified in 
the SEEKADR entry is valid or whether the 
address is within the limits defined in the 
XTENT statements. As a result, bits and 
1 of the first error byte are not set. 
(Refer to ERRBYTE=name) . 



If this entry is omitted,, the IOCS auto- 
matically performs these checks and sets 
the appropriate bits in the first error 
byte. 



CONTROL=YES 

This entry is required if a CNTRL macro 
instruction is to be issued for the file. 
The CNTRL macro instruction can be used to 
initiate a seek operation. 



DEVICE=DISK:11F 

This entry specifies that a fixed-sector 
IBM 2311 (Model 11 or 12) is used for the 
direct-access file. If this entry is 
missing or mispunched, the IOCS assumes the 
correct device and issues a warning to the 
operator. 
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DSKXTNT=n 



SEEKADR=name 



The value n specifies the number of 
extents. If the entry is omitted, the IOCS 
assumes n=3. The IOCS uses this informa- 
tion to reserve the main-storage area in 
which the addresses of the extent boundar- 
ies are saved. The maximum number of 
extents permitted is 99 per file. 



ERRBYTE=name 

This entry is mandatory. It specifies the 
symbolic address of a two-byte field in 
which the IOCS will indicate exceptional 
conditions. The indications will be avail- 
able after a WAITF macro instruction has 
been executed. You may test for the fol- 
lowing conditions : 



This mandatory entry specifies the name of 
the 8-byte area that contains the disk 
address of the record to be read or writ- 
ten. The area must be defined in the prob- 
lem program. Its format and contents are 
described under Cylinder, Track and Record 
References. 



The problem program must place the 
addiress of the desired disk record in the 
specified location before issuing a READ or 
WRITE macro instruction. If the disk 
address is invalid, bit of the first 
error byte is set to 1. If the address is 
outside the extents specified in the XTENT 
statements, bit 1 of the error byte is set 
to 1. 



Bit Positions 



T 1 

Exceptional Condition 
If Bit Is 1 



I- 



Byte 


1 : 


Bit 
Bit 1 
Bit 2-7 


Byte 


2*: 


Bit 
Bit 1 
Bit 2 
Bit 3 
Bit 4 
Bit 5 
Bit 6 
Bit 7 



+- 



invalid address 
address outside extent 
not used 



not used--set to zero 
intervention required 
end of cylinder 
equipment check 
data check 
seek check 
no record found 
track condition check 



j+First byte of sense field 
I 



IOAREAl=name 

This entry is mandatory and specifies the 
name of the I/O area to be used for the 
file. The name must be the symbol used in 
defining the area in the source program. 
You can specify only one I/O area for each 
direct-access file. 



TYPEFLE=code 

This entry specifies the type of file and 
how the disk labels are to be processed. 
The entry must not be omitted. 

Code Explanation 

INPUT The labels of an input file are to 
be read and checked. 

OUTPUT The labels of an output file are 
to be written. 



VERIFY=NO 

When this entry is specified, the record 
just written is not verified. If you omit 
this entry, all records written onto disk 
are verified. If a write error is detect- 
ed, the IOCS attempts to recover the error 
as described in the section Device Error 
Recovery . If a permanent write error 
occurs, the IOCS inserts into the ERRBYTE 
the first byte of the sense field (For a 
detailed description of the sense field, 
refer to the SRL publication IBM System/36Q 
JModel 20 Functional Characteristics , Form 
A26-5847). 



The size of the area must be equal to 
270 bytes or an integer multiple of 270. 
If the calculated length is not equal to 
270 or an integer multiple thereof, the 
next larger value allowed must be used for 
the I/O area. 



Although processing time is increased 
when the records are verified, you are 
strongly recommended to omit the entry 
VERIFY=NO unless you require maximum 
throughput. 



WRITE ID=YES 



READ I D= YES 

This entry is required if records are to be 
retrieved from the direct-access file, 
i.e., if a READ macro instruction in the 
problem program refers to the file. 



This entry is required if records are to be 
stored in the direct-access file, i.e.,, if 
a WRITE macro instruction in the problem- 
program refers to the file. The entry is 
also used for input files if they are to be 
updated by the problem program. 
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Imperative Macro Instructions 

The imperative macro instructions for 
direct-access files are described in the 
following order: WRITE, READ, WAITF, CNTRL,, 
CNVRT. For a description of OPEN and CLOSE 
refer to the section Instructions for Open- 
ing and Closing Files . 



WRITE MACRO INSTRUCTION 

This macro instruction causes a record that 
has Deen built in an output area in -rnain 
storage to be written onto disk. 



r T T 1 

iName 1 Operation | Operands | 

^ + 1 . ^ 

I [namej |WRITE | filename, ID 1 

L X ._X J 



The first operand specifies the name of 
the disk file into which the record is to 
be placed. The file name must be the same 
as the one specified in the header entry of 
the DTFDA statement for the file. The 
second operand must be ID as shown. 



Before this macro instruction is execut- 
ed, the problem program must provide the 
track and record reference of the disk 
location in which the record is to be 
stored (refer to Cylinderj Track and Record 
References below) . When the WRITE macro 
instruction is executed, the IOCS searches 
the specified track for the desired loca- 
tion on the track. When the correct loca- 
tion has been found, the data record is 
written from the output area in main stor- 
age. A data record may require one or more 
sectors of disk storage; the length of the 
data record is specified in the 3LKSIZE=n 
entry in the DTFDA statement for the file. 
If an I/O error occurs,, the appropriate 
bits are set as described for the entry 
ERRByTE=name of the DTFDA statement. 



If you use the WRITE macro instruction 
in a program,, you must include the 
WRITEID=YES entry in the DTFDA statement 
for the file. 



READ MACRO INSTRUCTION 

This macro instruction causes a record on 
disk to be read into main storage. 

r T — T 1 

I Name ] Operation [Operands | 

j. 1 __| ^ 

l[name]|READ lfilename,ID | 

t X __J. J 



The first operand specifies the name of 
the disk file from which the record is to 
be retrieved. The file name must be the 
same as the one specified in the header 
entry of the DTFDA statement for the file. 
The second operand must be ID as shown. 

Before this macro instruction is execut- 
ed, the problem program must provide the 
track and record reference of the desired 
record (see Cylinder,, Track and Record 
References below) . When the READ macro 
instruction is executed, the IOCS searches 
the specified track for the particular 
record. When the correct record has been 
located,, it is read into the input area in 
main storage. If an I/O error occurs, the 
appropriate bits are set as described for 
the entry ERRBYTE=narae of the DTFDA state- 
ment . 

If you use the READ macro instruction in 
a program, you must include the READID=YES 
entry in the DTFDA statement for the file. 



WAITF MACRO INSTRUCTION 

The WAITF macro instruction e 
the reading or writing of a r 
from the I/O area for the fil 
completed before further proc 
same I/O area is performed. 
instruction enables you to ov 
.ope3;ations with processing in 
or U, or a Submodel 5 not uti 
read/compute, write/compute ( 
The RWC feature of a Submodel 
other hand, provides full ove 
I/O operations. 



nsures that 
ecord into or 
e has been 
essing in the 
This macro 
erlap seek 

a Submodel 2 
lizing the 
RWC) feature. 

5, on the 
rlapping of 



J. ^ ^ ^ 

I Name [Operation [Operand [ 

J. 1 1 ^ 

I [name] [WAITF [filename | 

L X X_ J 

The file name in the operand field must 
be the same as the one specified in the 
header entry of the DTFDA statement for the 
file. 



After an I/O operation has teen started, 
the IOCS immediately returns control to the 
problem program. Therefore, when the pro- 
gram is ready to process the input record 
or build the succeeding output record for 
the same file, make a test to ensure that 
the previous I/O operation has been com- 
pleted. To do this, issue a WAITF macro 
instruction in the problem program. If the 
I/O operation has not been completed, the 
program enters a waiting loop and remains 
there until the entire record has been read 
or written. In the problem program, a 
WAITF ma'cro instruction should be issued 
after eafch READ or WRITE macro instruction. 
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The following example shows one p)ossible 
placement of the WAITF macro instruction: 



READ (WRITE) AAA, ID 



WAITF AAA 



processing that does 
not refer to the 
I/O area of file AAA 

processing that may 

refer to the 

I/O area of file AAA 



WRITE (READ) AAA, ID 



The WAITF macro instruction also makes 
the error-status information available in 
the second byte of the two-byte field spec- 
ified by the entry ERRBYTE=name of the 
DTFDA Statement. If the entry ADRTEST=NO 
is not specified, you should check the 
error information in the ERRBYTE entry 
after every WAITF macro instruction. 



r ~T T 1 

I Name [ Operation j Operands | 

|. + 1 ^ 

1 [name] |CNVRT j seekf ield, packedf ield | 

L X i. J 

The first operand specifies the name of 
the 8-byte field to which the converted 
address is to be moved. This field has the 
same format as, and can be identical with, 
the seek field MBBCCHHR specified for the 
entry SEEKADR^narae of the DTFDA statement. 
Note that only the four low-order bytes 
repz;esenting the disk address CHHR are 
altered by this macro instruction. You 
must define the eight- byte seek field in 
the problem program by first choosing the 
appropriate entry for the first byte in a 
DC statement and then specifying a DC 
statement (e.g., DC XLV'OO') to fill the 
remaining seven bytes with zeros. 

The entries for the first byte are as 
follows: 



CNTRL MACRO INSTRUCTION 

This macro instruction is used to position 
the access mechanism for the reading or 
writing of a disk record. The CNTRL macro 
instruction can be used to improve the 
performance of the program. 

I Name [Operation | Operands | 

j. + 1 .^ 

I [name] I CNTRL | filename, SEEK 1 

L X X J 

The first operand specifies the name of 
the disk file for which the seek operation 
is desired. The file name must be the same 
as the one specified in the header entry of 
the DTFDA definition statement for the 
file. The second operand must be SEEK. 



X'OO' to refer to the first volume 

X'Ol' to refer to the second volume 

X'02' to refei: to the third volume 

X'03' to refer to the fourth volume. 

These entries must agree with the defi- 
nitions in the VOL, DLAB, and XTENT control 
statements. The entries X*02' and X'03' 
apply to the Model 20, Submodel 5 only. 

The second operand specifies the name of 
a 3-byte field in packed decimal format (in 
the problem program) that contains the disk 
address to be converted. The format of 
this field must be as follows: 



r T T 1 

I CC I CH j R+ I 
L X X J 



Byte 



The CNTRL macro instruction causes the 
access mechanism to be moved to the disk 
address contained in the field specified in 
the entry SEEKADR=name of the DTFDA state- 
ment. After the CNTRL macro instruction 
has started the movement of the access 
mechanism towards the specified disk loca- 
tion, control is returned to the problem 
program, which may process data and/or 
request I/O operations for files on other 
I/O devices. 

Each CNTRL macro instruction must be 
preceded by a WAITF macro instruction. 



CNVRT MACRO INSTRUCTION 

This macro instruction is used to convert a 
packed decimal address of three bytes into 
the format of the seek field as used in 
direct-access processing. 



The meaning of the symbols CCCHR is 
explained under Cylinder, Track and Record 
References . 

The packed decimal address is not 
checked for validity. Therefore, it is 
your responsibility to supply the correct 
cylindei;, head, and record values. The 
highest address that may be specified is 
20299. 

Since the CNVRT macro instruction uses 
registex; 14, the contents of this register 
are overwritten. 

Cylinder^ Track and Record References 

To refer to a specific location in disk 
storage, you must provide the cylinder, 
track and record references of the loca- 
tion. You can derive these cylinder, track 
and record references, which constitute the 
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sector address, by using a randomizing 
formula. Selecting the best formula for a 
given file may require some consideration, 
since it is desirable to minimize (1) the 
number of records for which the same disk 
address is derived, and (2) the amount of 
wasted storage space, i.e., the number of 
unused record locations between the records 
of the file. 



The cylinder, track and record referen- 
ces consist of eight bytes of information 
in the following form: 

MBBCCHHR 

Note that the sector address is for compat- 
ibility purposes in the form of the stand- 
ard IBM System/360 random-access address. 
Make the sector address available to the 
IOCS in an 8-byte field before issuing a 
READ or WRITE macro instruction. The use 
of the CNVRT macro instruction is strongly 
recommended for this purpose. The symbolic 
address of the 8-byte field must be speci- 
fied in the SEEKADR entry of the DTFDA 
statement for the file. 

The contents of these eight bytes are as 
shown below. Provide all numbers in binary 
notation. 

Name and 
Symbol Byte(s ) Contents 



BB 



CC 



M 



Pack Number 

For Model 20 Submodels 2 
and 4, this is either 
or 1; for Submodel 5 it 
is any number from to 
3. The entry indicates 
the specific disk pack. 
M must be if only one 
pack (volume) is used 
for a file., regardless 
of the drive on which it 
is mounted. If more 
than one pack (volume) 
is used for a file, M=0 
addresses the first 
volume, M=l the second,, 
and so on, as defined by 
the VOL, DLAB and XTENT 
control statements. The 
symbolic device address- 
es for disk drives can 
be assigned physical 
device addresses as 
desired. 



HH 



1-2 Reserved 
Zeros 

3-4 Cylinder Number 

For Model 12 any value 
from 000 to 102, for 
Model 11 any value from 
000 to 202, indicating 
the number of the cylin- 
der in which the record 
is located. Note that 
the cylinders 1-3 are 
used for alternate 
tracks on both models, 
and that byte 3 will 
always contain zeros. 

5-6 Head Number 

A number from to 9 
indicating the 
read/write head to be 
used for reading or 
writing the record. 
Each head reads from, or 
writes on, one disk 
surface. Head is 
assigned to disk surface 
0. Likewise, heads 1 
through 9 are assigned 
to disk surfaces 1 
through 9, respectively. 
Note that byte 5 will 
always contain zeros. 

7 Record Ref e rence 

A number from to 9 
indicating a specific 
record (sector;) on a 
track. 



Identifier (ID) : Bytes 3 thro 
of the cylinder, track and rec 
are referred to as the ID or i 
Each disk record (sector) is p 
count area which contains the 
data. When a READ or WRITE ma 
tion is executed, the computer 
ID in the count area with the 
part of the cylinder, track an 
reference. An equal compariso 
that the desired record has be 



ugh 7 (CCHHR) 
ord reference 
dentif ier . 
receded by a 
ID and other 
cro instruc- 

compares the 
corresponding 
d record 
n indicates 
en found. 



When a READ (WRITE) macro instruction 
for the file is executed, the IOCS uses the 
cylinder;, track and record reference to (1) 
select the specific track on the appropri- 
ate disk pack and (2) locate the specified 
record location (sector). 
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Instructions for Processing Indexed-Sequential Disk Files 



The organization of files according to the 
Indexed-Sequential File Management System 
(ISFMS) permits disk records to be proc- 
essed in random order or in sequential 
order by control information. For ramdom 
processing, supply the control information 
(key) of the desired record to the IOCS and 
issue a READ or WRITE macro instruction to 
transfer the specified record. For sequen- 
tial processing by control information 
(key),, specify the first record to be proc- 
essed and then issue GET or PUT macro 
instructions until all desired sequential 
records have been processed. The succes- 
sive records are made available in sequen- 
tial order by their keys. Variations in 
macro instructions permit: 

• a logical file of records to be loaded 
onto disk (created); 

• individual records to' be read from, 
added to., or updated in the file. 

The logical records mus'o be of fixed 
length, and the length must be specified in 
the RECSIZE entry of the DTFIS statement. 
Logical records may be either blocked (two 
or more logical records iii one block) or 
unblocked (one logical record per block) . 

Whenever you use an indexed-sequential 
file,, you must describe the file and the 
main-storage areas allotted to the file in 
the DTFIS file definition statement. 



the Model 20 IOCS does not permit the 
extents of .a previously organized file to 
he changed, and the file must therefore be 
wholly reorganized. In addition, the 
ADAREX routine must contain the CLOSE macro 
instructions foj; all files involved. In a 
mainline program, all disk files must be 
closed in the ADAREX routine. Note that an 
ADAREX entry must not be used if 
IOROUT=LOAD has been specified. 



ALTREX=name 

This entry is mandatory if IOROUT=LOAD is 
specified. It is optional if IOROUT=ADD or 
IOROUT=ADDRTR is specifi.ed. 



If a file is to be extended 
(IOROUT=LOAD) after records have been added 
to the last track of a file during a pre- 
vious add operation,, the IOCS branches to 
youar ALTREX routine. You must reorganize 
the file before it can be extended. The 
branch condition is detected during the 
execution of the SETFL macro instruction 
and bef02:e the LOAD operation is initiated. 
Therefore, you must not issue an ENDFL 
macro instruction in your ALTREX routine. 
This instruction would cause the last prime 
data record to be overwritten by an EOF 
record and thus destroy your file. Howev- 
er, you must issue a CLOSE macro instruc- 
tioii for your file. 



DTFIS Statement 

This file definition statement applies only 
to indexed-sequential files. The name 
field of the header entry must contain the 
name of the file and the operation field 
must contain DTFIS. 

For ease of reference, the detail 
entries to be entered in the operand field 
are described below in alphabetical order. 



ADAREX=name 

This entry is mandatory if IOROUT=ADD or 
IOROUT=ADDRTR is specified. 

Each new record to be inserted in an 
organized file is entered in an overflow 
area. If the specified overflow area is 
full and more records are yet to be added, 
the IOCS branches to the symbolic address 
specified in the ADAREX entry. In this 
routine you should terminate the job since 



You can avoid that records are added to 
the last track of a file if you specify the 
ALTREX detail entry for ADD and ADDRTR 
files. If the program tries to add a 
record to the last track of a file, the 
IOCS branches to your ALTREX routine. In 
this routine you can determine whether the 
record can he added to the file or whether 
it is to be inserted at a later time. If 
the record 'can be added, i.e., the key of 
the record to be inserted is higher than 
the key of the last record in the file, 
perform a LOAD/Extension run to insert the 
record. If the key is not higher, you may 
continue processing and add the record 

9 after anothei; track has become the last 
track of the file during a succeeding 
LOAD/Extension run,, or 

• by anothei; program in which ALTREX is 
not specified. However, this makes 
further extensions of the file impossi- 
ble because the EOF record is trans- 
ferred to the overflow area. 
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CYLOFL=n 

Include this entry if cylinder overflow 
areas are to be reserved for a logical 
file. A cylinder overflow area is located 
on each cylinder within the prime data area 
of the data file. It contains records that 
overflow from tracks in that cylinder. 

To reserve the areas for cylinder over- 
flow, this entry is required when the par- 
ticular file is to be loaded onto disk and 
records are to be added at a later time. 
The specification n twhere n is any integer 
from 1 through 9) is the number of tracks 
to be reserved on each cylinder. Note that 
the actual size of the cylinder overflow 
area may be less than the specified number 
of tracks. If the block size of prime data 
blocks is such that track overflow blocks 
occur (i.e., not all sectors of a block are 
on the same track) , the last prime data 
block of a cylinder uses one or more sec- 
tors of the cylinder overflow area. The 
maximum number of cylinder overflow sectors 
that may be used by the last prime data 
block is equal to the number of sectors per 
block minus 1. 

If you specify an independent overflow 
area (by an XTENT statement) in addition to 
the CYLOFL entry, overflow records are 
written in the independent overflov/ area 
after a cylinder overflow area has been 
filled. 



CYNDEX=name 

This entry is mandatory if IOROUT=LOAD has 
been specified for the file. The entry 
CYNDEX=name specifies the symbolic address 
to which the IOCS branches if the cylinder- 
index area becomes full while a file is 
being loaded or extended. You must 
reorganize the file and specify a larger 
disk area for the cylinder index in an 
XTENT Statement. The CYNDEX routine should 
also contain the necessary ENDFL and CLOSE 
macro instructions. 



Note; 



If this routine discontinues the 



processing of a program that is a mainline 
program, the CYNDEX routine must contain 
CLOSE macro instructions for all disk 
files. 



DERREX=name 

This entry is mandatory for all indexed- 
sequential files. It specifies the 
symbolic address to which the IOCS branches 
if an irrecoverable disk error has 
occurred. If, in this routine, you want to 
discontinue the processing of a program 
that is a mainline program, you must first 
close all disk files. 



Certain error information is made avail- 
able in the problem program if the detail 
entry ERRINF=YES is specified. The first 
byte of this error information can be 
addressed by using a symbolic address con- 
sisting of the file name with the suffix A. 
For example, if the name of the file is 
PAYROLL, the address of the error informa- 
tion will be PAYROLLA. 

The first two bytes of this information 
contain the address of an error block as 
already described for sequential disk 
files. (Refer to the detail entry 
ERROPT=code in the section Instructions for 
Processing Sequential Disk Files) . 

The next two bytes (beginning at 
PAYROLLA+2) contain logical error informa- 
tion as descri.bed under the detail entry 
ERRINF=YES. 

Register 14 contains the return address, 
i.e., the address of the next sequential 
instruction following the macro instruction 
that detected the error. Since the IOCS 
macro instructions use register lU, you 
must save the contents of this register 
before you issue a macro instruction in 
your error routines. 

You may provide individual error proce- 
dures for the various IOCS functions such 
as loading, adding, sequential or random 
retrieving, updating, etc. However, you 
must save the error information and the 
contents of the I/O area. This information 
is essential in tlje event that an alternate 
track must be assigned to replace a track 
that is found to be defective. It must be 
emphasiz;ed that in some cases a recovery 
and restart procedure may not be possible. 
For this reason you should always maintain 
a duplicate of every file you use in the 
installation. 



Note: For sequential retrieval, you must 
first issue an ESETL and then a SETL macro 
instruction before you issue the next GET 
macro instruction in your error routine. 

DEVICE=DISK11F 

This entry specifies that a fixed-sector 
IBM 2311 (Model 11 or 12) is used as I/O 
device for the indexed-sequential file. If 
this entry is omitted or raispunched, the 
IOCS assumes the correct device and issues 
a warning to the operator. 

DPCRCD=YES 

You may specify this entry for ADD and 
ADDRTR files to avoid having disk storage 
locations reserved in the overflow area for 
duplicate records. You should specify this 
entry if your ADD or ADDRTR file is likely 
to contain duplicate records. 
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DSKXTNT=n 

This entry is mandatory for all indexed- 
sequential files. It specifies the raaximurn 
number of extents used for the file. The 
number must include (1) all the prime data 
area extents, {2) the cylinder index area, 
and (3) the independent overflow areai (if 
used) , all of which are specified by XTENT 
statements. Thus, the minimum number spec- 
ified by this entry is 2: one extent for a 
prime data area and one extent for a cylin^- 
der index. The maximum number of extents 
permitted is 99 per file. 



DTAREX=name 

This entry i 
been specifi 
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remaining recor 

to the file. 
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The entry 
ymbolic address 
if the prime 
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If you specify ERRINF=YES, logical 
information about each disk error that may 
occur is provided in a special field. You 
can address this field using a symbolic 
name that consists of the file name with 
the suffix A+2. For example, if the name 
of the file is PAYROLL, the logical error 
information is contained in PAYROLLA+2. 
The information indicates the disk area in 
which the error occurred (the corresponding 
bit is on) . 



JByte 



-T T 

I Bit I Area 
4 1 



PAYROLLA+2 | | prime data area 

PAYROLLA+2 | 1 [cylinder overflow area 

PAYROLLA+2 | 2 j independent overflow area 

PAYROLLA+2 j 3 | cylinder index 

PAYROLLA+2 | 4 | track index 



PAYROLLA+2 | 5-7 | not used 
± ±. 



PAYROLLA+3 is not used. If the entry 
ERRINF=YES is omitted, no logical error 
information is supplied. 



IOAREAL=name 



DUPREX=name 

This entry specifies the symbolic address 
to which the IOCS branches if a duplicate 
record (equal keys) is detected while load- 
ing or extending a file, or when adding a 
record to a file. This entry is mandatory 
if the specification for lOROUT is either 
LOAD, or ADD, or ADDRTR. You can avoid 
having disk storage locations reserved for 
duplicate records if you specify the detail 
entry DPCRCD=YES for ADD or ADDRTR files. 

EOFADDR=name 

Include this entry when records of the file 
are to be retrieved sequentially (i.e., if 
either TYPEFLE=SEQNTL or TYPEFLE=RANSEQ has 
been specified for the file) . The entry 
EOFADDR=name specifies the symbolic address 
of the routine to which the IOCS branches 
when an end-of-file condition occurs. An 
end-of-file condition is detected by read- 
ing the end-of-file record. In your end- 
of-file routine, you may perform any 
operations required for the end of the job. 
Generally, a CLOSE macro instruction is 
issued for the file. 



Note; If, in the end-of-file routine, you 
want to discontinue/terminate the process- 
ing of a program that is a mainline pro- 
gram, close all disk files first. 

ERRINF=YES 

This optional detail entry indicates wheth- 
er you require logical error information or 
not. 



This entry is mandatory if the specifi- 
cation for lOROUT is LOAD, ADD, or ADDRTR. 
The entry IOAREAL=name specifies the sym- 
bolic address of the output area to be used 
when loading or extending a file, or when 
adding records to a file. The specified 
name must be the same as the one that 
defines the area in the problem program. 

For unblocked records of ADD and ADDRTR 
files, the output area must be large enough 
to contain one record plus the link field, 
i.e., the size of lOAREAL must be equal to 
or greater than the record size specified 
in the RECSIZ.E=n entry plus 6, (see Mote 
below) . For blocked records, the output 
area must be large enough to contain a 
complete block. If records are to be added 
to a file of blocked records, the output 
area must be preceded by a work area that 
is large enough to contain one record. 
This work area is used by the IOCS during 
the shift procedure which is necessary when 
a record is inserted into the prime data 
area (see the description of WORKA=name 
below) . 

Note; The total length of lOAREAL must be 
equal to 270 bytes or an integer multiple 
of 270. If the calculated length is not 
270 or an integer multiple thereof, the 
next larger allowed value must be used for 
the output area. 

IOAREAR=name 

This entry is mandatory if TYPZFLE=RANDOM 
or TYPEFLE=RANSEQ has been specified for 
the file. The entry IOAREAR=name specifies 
the symbolic address of the I/O area to be 
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used for random retrieval and/or updating 
operations. The specified name must be the 
same as the one that defines the area in 
the problem program. The size of the area 
must be an integer multiple of 270 and 
large enough to contain a block or, for 
unblocked files, a record of the file. No 
work area is required. 



IOAREAS=name 



This entry is mandatory if TYPEFLE=SEQNTL 
or TYPEFLE=RANSEQ has been specified for 
the file. The entry IOAREAS=name specifies 
the symbolic address of the I/O area to be 
used for sequential retrieval and/or updat- 
ing operations. The specified name must be 
the same as the one that defines the area 
in the problem program.' The size of the 
area must be the same as described for the 
entry IOAREAR=name. No work area is 
required. 



IOREG= ( register) 

This entry is required only for RETRVE or 
ADDRTR files containing blocked records 
that are to be processed in the I/O area. 



As operand, specify in parentheses any 
of the registers 8 through 13 or a symbolic 
name that has been equated to one of the 
registers 8 through 13. The specified 
register contains the address of a logical 
input record that is available for process- 
ing. The IOCS places this address into the 
register each time a READ or GET macro 
instruction is executed. 



IOROUT=code 

This entry is mandatory for all indexed- 
sequential files. It specifies the type 
of function to be performed. 



KEYARG=name 



Include this entry for 

1. random .retrieval (TYPEFLE=RANDOM or 
TYPEFLE=RANSEQ has been specified), and 

2. sequential retrieval (TYPEFLE=SEQNTL or 
TYPEFLE-RANSEQ has been specified), if 
this type of retrieval operation is to 
begin with a specific key, i.e., the 
operand of the SETL macro instruction 
is either KEY or GKEY. 

The entry KEYARG=name specifies the 
symbolic address of the location that con- 
tains the key of either the record that is 
to be retrieved or the record with which 
sequential retrieval is to begin. 

The problem program must place the key 
into the specified location before issuing 
the maci;o instruction that requires the 
key. 

KEYLEN=n 

This entry is mandatory for all indexed- 
sequential files. It specifies the length 
of the key in number of bytes (maximum 
length is 60 bytes) . 



KEYLOC=n 

This entry is required for al 
sequential files. It specifi 
tion of the leftmost byte of 
tive to the beginning of the 
example, if the key is record 
tions 21-25 of each record in 
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byte of the record is counted 
The key may be defined as a f 
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three bytes of the record mus 
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Code 



Function 



NRECDS=n 



LOAD Building a logical file on disk or 
extending a file beyond the highest 
record currently contained in an 
organized file. 

ADD Inserting new records into an 
organized file. 

RETRVE Retrieving records from a file for 
either random or sequential proc- 
essing and/or updating. 

ADDRTR Both inserting new records into a 
file (ADD) and retrieving records 
for processing and/or updating 
(RTR) . 



This entry is always required. It speci- 
fies the number of records in a block. For 
unblocked records, n will be 1. 

Because the IBM 2311 uses a fixed sector 
length of 270 bytes, the IOCS transfers 
from and to disk an area whose length is 
equal to the specified number of records 
times the number of bytes contained in a 
record, provided the product of the two is 
an integer multiple of 270. If the product 
is not an integer multiple of 270, the IOCS 
transfers an area whose length is equal to 
the next higher integer multiple of 270. 
Take this into consideration when defining 
the I/O area in your program. 



RECFORM=code 



TYPEFLE=code 



This mandatory entry specifies the record 
format of the file. The IOCS can handle 
both of the permissible record formats in 
one program. However, all records in a 
given file must be. of the same format. 

Code Record Format 

FIXUNB Unblocked format-F records 

FIXBLK Blocked format-F records 

The specification that is used when the 
logical file is loaded onto disk must again 
be included whenever the file is processed. 



RECSIZE=n 

This entry is mandatory for all indexed- 
seguential files. It specifies the number 
of byt^s in a logical record. All logical 
records must be of the same length. The 
maximum length permitted for records of an 
indexed-sequential file is 4096 bytes. 



RTRVEX=name 

This entry specifies the symbolic address 
to which the IOCS branches if the record 
with the described key cannot be found in 
the file. This entry is always required if 
TYPEFLE=RANDOiy! or TYPEFLE=RANSEQ has been 
specified for the file. If TYPEFLE=SEQNTL 
has been specified the entry RTKVEX is not 
required; however, when you omit this 
entry, you may specify only the operand BOF 
or GKEY in a SETL macro instruction refer- 
ring to the file. 

If the IOCS branches to the specified 
routine during the execution of a SETL 
macro instruction, you must write an ESETL 
macro instruction in your routine before 
any other macro instruction referring to 
the same file is issued. 



Note; If the RTRVEX routine discontinues 
the processing of a program that is a main- 
line program, it must include CLOSE macro 
instructions for all disk files. 



SQCHEX=name 

This entry specifies the symbolic address 
to which the IOCS branches if a record is 
out of collating sequence while a file is 
being loaded or extended. 



Mote; If the SQCHEX routine discontinues 
the processing of a program that is a main- 
line program, it must include CLOSE macro 
instructions for all disk files. 



This entry is required when a retrieval 
function is to be performed (i.e., 
IOROUT=RETRVE or IOROUT=ADDRTR has been 
specified) . The TYPEFLE entry specifies 
the type of processing to be used for the 
file. 



Code Type of Processing 

RANDOM Random Processing: 

Records are retrieved from the file 
in random order by key. READ macro 
instructions are used to transfer 
records from disk to main storage. 

SEQNTL Sequential Processing; 

The I:OCS retrieves records in 
sequential order by key. The first 
record retrieved may be the first 
record of the file or a record 
specified by the key (see SETL 
Macro Instruction ) . The problem 
program specifies the first key to 
be retrieved, GET macro instruc- 
tions are used to transfer records 
from disk to main storage. 

RANSEQ Random and Sequential Processing: 
READ and/or GET macro instructions 
are used to transfer records from 
disk to main storage: READ for 
random retrieval and GET for 
sequential retrieval. 



UP DAT E= code 

This entry is required if disk records are 
to be updated. It specifies the type of 
processing used to update records. 



Code Type of Processing 

RANDOM Random Processing with Updating: 

A WRITE macro instruction causes a 
record to be written onto disk at 
the same location from which this 
record was retrieved by a preceding 
READ macro instruction. 
UPDATE=RANDOM can only be specified 
in conjunction with either 
TYPEFLE=RANDOM or TYPEFLE=RANSEQ. 

SEQNTL Sequential Processing with Updat- 
ing; 

A PUT macro instruction causes a 
record to be written onto disk at 
the same location from which this 
record was retrieved by a preceding 
GET macro instruction. 
UPDATE=SEQNTL can only be specified 
in conjunction with either 
TYPEFLE=SEQNTL or TYPEFLE=RANSEQ. 
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RANSEQ Random and/or Sequential Processing 
with Updating: 

A WRITE macro instruction causes a 
record to be written onto disk at 
the same location from which it was 
retrieved by a preceding READ macro 
instruction, A record that was 
retrieved by a GET macro instruc- 
tion is written onto disk by a 
subsequent PUT macro instruction. 
UPDATE=RANSEQ can only be specified 
in conjunction with the 
TYPEFLE= RANSEQ detail entry. 



VERIFY=NO, 

When this entry is specified, the records 
are not checked after they have been writ- 
ten onto disk. If you omit this entry all 
records written onto disk are verified. If 
an irrecoverable disk-write error occurs, 
the IOCS branches to your DERREX routine. 
Although processing time increases when the 
records are verified, you are strongly 
recommended to omit the entry VERIFY=NO 
unless you require maximum throughput. 



WORKA=narae 

This entry is required when records are to 
be added to a file containing blocked 
records. The entry specifies the symbolic 
address of a work area that must immediate- 
ly precede the I/O area specified in the 
lOAREAL entry. This work area must be 
exactly as long as one logical record. The 
specified name must be the same as the one 
that defines the area in the problem pro- 
gram. 



WORKR=name 

Include this entry when (1) the records of 
the file are processed in random order and 
(2) the individual records are to be proc- 
essed in a work area rather than in the I/O 
area. The entry specifies the symbolic 
address of the work area, and the specified 
name mus-f- be the same as the one that 
defines the area in the problem program. 
This work area must be large enough to 
accommodate one logical record. 

When this entry is included and a READ 
or WRITE instruction referring to the file 
is executed, the IOCS moves the individual 
record to or from this area. 

When this entry is included for a file, 
the lOREG detail entry must be omitted 
unless the entry TYPEFLE=RANSEQ is included 
in the problem pi;ogram. 



WORKS=YES 

This entry is required if (1) 
to be processed in sequential 
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When this entry is included for a file,, 
the lOREG detail entry must be omitted 
unless the entry TYPEFLE=RANSEQ is included 
in the problem program. 



Loading or Extending Indexed-Sequential Files 



WORK L= name 

This entry must be included whenever a file 
is to be loaded or extended, or records are 
to be added to a file. The entry specifies 
the symbolic address of the work area to 
which you must move the data records so 
that the IOCS can load them or add them to 
the file. The specified name must be the 
same as the one that defines the area in 
the problem program. 



If the file is to contain blocked 
records, this work area must be large 
enough to accommodate one logical record. 
If the file is to contain unblocked 
records, six additional bytes must be pro- 
vided for ADD and ADDRTR files so that the 
pertinent sequence- link field can be suf- 
fixed to each record. If unblocked records 
are added to a file, the contents of the 
area defined by WORKL is destroyed by a 
WRITE NEWKEY macro instruction. 



Three different macro instructions are 
required in the problem program to load the 
records of an indexed-sequential file onto 
disk: SETFL, WRITE, and ENDFL, 



The function of originally 
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If you wish to load a file with a file 
name for which an unexpired file label 
exists, a halt occurs. The operator then 
has the choice to extend the existing file 
or to load the new file. In the latter 
case, the file with the unexpired file 
label is destroyed. The IOCS automatically 
performs an original load function if it 
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encounters an expired file label with the 
same file name. If you want to extend your 
file, you must therefore ensure that the 
file is not expired, i.e., the date entered 
on the DATE card for the job must not be 
higher than the expiration date for the 
file. 



The first operand specifies the name of 
the file into which the record is to be 
loaded. The file name must be the same as 
the one specified in the header entry of 
the DTFIS statement for the file. The 
second operand must be NEWKEY. 



You must specify the areas of the 
volumes in which you want to load your file 
by means of job control XTENT statements. 
The areas are: 

1 . the prime data area (s) (on one or more 
volumes) where the data records are 
written, 

2. a cylinder index area where you want 
the IOCS to build the cylinder index, 
and 

3. an (optional) independent overflow 
area. 

Note; All extents that are required for the 
LOAD function and all extents that might be 
required later in order to add new records 
must be specified for the initial lojiding 
of the file. 

During the load operation, the IOCS 
builds the track and cylinder indexes. 



Before issuing the WRITE macro instruc- 
tion, the problem program must place the 
record for the file into the work area 
whose symbolic address you must provide in 
the WORKL=name entry of the DTFIS state- 
ment. The WRITE macro instruction causes 
the record in the work area to be moved 
into the output area specified in the 
IOAREAL=name entry of the DTFIS statement. 

If records are to be blocked, the block 
will be built in the output area and placed 
onto disk when it is full; otherwise, one 
record is placed onto disk each time a 
WRITE macro instruction is executed. 



Before the record is moved to the output 
area, the IOCS performs a sequence check by 
key. The key may be a part number, an 
employee serial number, or any other iden- 
tifying information that is contained in 
every record of a file. 



SETFL MACRO INSTRUCTION 

This macro instruction ( SET File Load mode) 
prepares the IOCS for a file loading or 
extending operation. 



All keys of a file must have the same 
length, A key should not consist entirely 
of a string of hexadecimal zeros nor should 
a key contain any byte in which all the 
bits are on (hexadecimal FF) . 



r T T u 

I Name [Operation | Operand | 

|. 1 1 „ ^ 

I [name] | SETFL | filename 1 

t X i . J 

The operand contains the name of the 
disk file to be loaded or extended. The 
file name must be the same as the one spec- 
ified in the header entry of the DTFIS 
statement for the file. 



The key may be positioned anywhere with- 
in the record, with the following restric- 
tions : 

1 . The key position must be the same for 
all records of the file. 

2. At least three bytes must be available 
between the last byte of the key and 
the end of the record. 



The SETFL macro instruction must be 
issued whenever a new file is to be loaded 
or a loaded file is to be extended. 



WRITE MACRO INSTRUCTION 

This macro instruction loads one record 
into a disk file. 



r T T 1 

I Name ] Operation | Operands | 

). !__. 1 ^ 

I [name] [WRITE | filename, NEWKEY 1 

L X X . J 



Specify the location of the key in the 
KEYLOC and the length of the key in the 
KEYLEN entry of the DTFIS statement for the 
file. This enables the IOCS to check the 
sequence of records and to ensure that each 
record is in proper sequence by its key 
before the record is moved from, the work 
area into the output area. The IOCS also 
checks for duplicate records, i,e,, records 
with the same keys. If a record is out of 
sequence or a duplicate record is found, 
the IOCS branches to the appropriate 
routine (s) as specified in the SQCHEX 
and/or DUPREX entries of the DTFIS state- 
ment for the file. 
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ENDFL MACRO INSTRUCTION 



WAITF MACRO INSTRUCTION 



Issue this macro instruction ( END File Load 
mode) if you want to terminate the loading 
or extending of your file. 

r — T T 1 

I Name 1 Operation j Operand | 

y + 1 ^ 

I [name] ] ENDFL ] filename I 

L J. ._!. J 

The operand contains the name of the 
disk file that has been loaded or extended. 
The file name must be the same as the one 
specified in the operand field of the SETFL 
macro instruction that initiated the opera- 
tion. 

The ENDFL macro instruction must be 
issued to complete the loading or extending 
of a file. 



Adding Hecords to Indexed-Sequential Files 

The macro instructions used in the problem 
program for the insertion of new records 
are WRITE and WAITF. 

After an indexed-sequential file has 
been loaded onto disk, new records can be 
inserted into their proper places in the 
file. The location of the key in the new 
records must be the same as that in the 
records already in the file. The functions 
required for adding records are provided by 
specifying ADD or ADDRTR in the lOROUT 
entry of the DTFIS statement for the file. 



WRITE MACRO INSTRUCTION 

This macro instruction inserts one record 
into an indexed-sequential file. 

r T T 1 

iName | Operation ] Operands | 

j. 1 1 ^ 

I [name] IWRITE | filename, NEWKEY | 

L X i J 

Before the WRITE macro instruction is 
issued, the problem program must store the 
record to be added into a work area speci- 
fied in the WORKL entry of the appropriate 
DTFIS statement. 

Note that an additional work area is 
required when records are to be added to a 
file containing blocked records. Specify 
this additional work area in the WORKA 
entry of the DTFIS statement and define it 
so that it immediately precedes the area 
lOAREAL. The operations caused by a WRITE 
macro instruction are described in detail 
under Inserting Records in the section 
Processing Indexed-Sequential Files . 



This macro instruction ensures that the 
execution of the preceding WRITE macro 
instruction has been completed before 
further processing is done that involves 
the work areas specified for the file. The 
WAITF macro instr;uction permits the seek 
operation f,or seeking the track index to be 
overlapped with processing. 

r T T 1 

I Name [Operation [Operand 1 

^ 1 ^ 4 

I [name] I WAITF 1 filename | 

L X 1 J 

The file name must be the same as the 
one specified in the header entry of the 
DTFIS statement for the file. 

The WAITF instruction must follow a 
WRITE macro instruction. It does not have 
to be the next instruction after the WRITE 
macro instruction. However, it must be 
written before the next macro instruction 
for the same file is issued. 

If an error condition is detected during 
the execution of the WRITE functions, the 
IOCS branches to the appropriate error 
routine. 



Random Retrieval and Updating 

The following three macro instructions are 
available for. use in the problem program to 
retrieve and update records randomly: READ, 
WRITE, and WAITF. 



If you want to retrieve the 
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Because random reference to the file is 
made by record keys, the problem program 
must supply the key of the desired record 
to the IOCS. TO do this, store the key in 
the key area specified by the KEYARG entry 
of the appropriate DTFIS statement. The 
key that is placed into the key area speci- 
fied in the KEYARG entry designates both 
the record to be retrieved and (if updating 
is specified) the record location on disk 
into which the updated record is to be 
written. 



READ MACRO INSTRUCTION 

This macro instruction causes a specified 
record to be retrieved from an indexed- 
sequential file. 
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r T T 1 

I Name | Operation j Operands | 

^ 1 1 ^ 

I [name] jREAD ] filename, KEY | 

L JL i J 

The first operand specifies the name of 
the file from which a record is to be 
retrieved and placed into main storage. 
The file name must be the same as the one 
specified in the header entry of the DTFIS 
statement for the file. The second operand 
must be KEY. Place the key of the record 
into the field designated by the KEYARG 
entry, before issuing the READ macro 
instruction. 

If a work area is used in addition to 
the I/O area (DTFIS entry WORKR) , the 
record is also moved into the specified 
work area. 

If the records of the file are blocked, 
the IOCS causes the entire block containing 
the desired record to be read into the I/O 
area. The record is made available for 
processing either in the I/O area or in the 
work area specified in the WORKR entry of 
the DTFIS statement. For processing in the 
I/O area, the IOCS supplies the record 
address in the register specified directly 
or symbolically in the lOREG entry of the 
DTFIS statement. 



WAITF MACRO INSTRUCTION 

This macro instruction ensures that the 
reading of a record into, or the writing of 
a record from, the I/O area for the file 
has been completed before further process- 
ing is done that involves the same I/O 
area. The WAITF macro instruction also 
permits the seek operation for seeking the 
track index to be overlapped with process- 
ing. 



r T T T 

I Name | Operation | Operand | 

j. ^ 1 ^ 

j [name] | WAITF | filename | 

L J. JL J 

The file name must be the same as the 
one specified in the header entry of the 
DTFIS statement for the file. 

A WAITF macro instruction must be issued 
after every READ or WRITE macro instruction 
referring to a file for which random 
retrieval and updating has been specified. 
After a READ macro instruction, issue a 
WAITF macro instruction before you start 
processing the record retrieved by that 
READ macro instruction. After a WRITE 
macro instruction, issue a WAITF macro 
instruction either 



If the IOCS does not find the specified 
record, control is transferred to the rou- 
tine specified in the RTRVEX entry of the 
appropriate DTFIS statement. 



WRITE MACRO INSTRUCTION 

This macro instruction causes the record 
retrieved by the preceding READ macro 
instruction (for the same file) to be writ- 
ten onto disk at the location from which it 
was retrieved. 



1. before you issue another READ macro 
instruction referring to the same file, 
or 

2. before you start using the I/O area for 
the file in the problem program, or 

3. before you issue any other macro 
instruction that refers to the same 
file (including CLOSE) , 

whichever is earlier. 



r T T 1 

I Name | Operation | Operands | 

|. ___! 1 _ ^ 

I [name] |WRITE | filename, KEY | 

L i J. J 

The first operand specifies the name of 
the file to which a record is to be 
returned. The file name must be the same 
as the one .specified as the first operand 
of the READ macro instruction that 
retrieved the record. The second operand 
must be KEY. 

The WRITE macro instruction causes the 
record to be written onto disk at the loca- 
tion specified by the key used by the 
preceding READ macro instruction. There- 
fore, if you do not change the contents of 
KEYARG, the problem program need not supply 
the key again. 



Sequential Retrieval and Updating 

Four macro instructions are available for 
use in the problem program to cause the 
records of an indexed-sequential file to be 
retrieved and updated sequentially: SETL, 
GET, PUT, and ESETL. If you want to 
retrieve and update the records of the file 
in both ways, randomly and sequentially, 
the macro instructions READ, WRITE, and 
WAITF are used for random retrieval as 
explained in the section Random Retrieval 
and Updating . 

From an indexed-sequential file, records 
can be retrieved in sequential order by key 
for processing and/or updating. To cause 
the IOCS to perform sequential retrieval 
and updating, specify the following in the 
detail entries of the appropriate DTFIS 
statement: 
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1. Retrieval of records (RETRVE or ADDRTR 
in the lOROUT entry) . 

2. Sequential processing (SEQNTL or RANSEQ 
in the TYPEFLE entry). 

3. Updating of records (SEQNTL or RANSEQ 
in the UPDATE entry) . 

If the specifications ADDRTR and RANSEQ 
are used in these three detail entries, the 
records can be retrieved randomly or 
sequentially, and new records can be added. 



Sequential retrieval can begin either at 
a record identified by key or at the begin- 
ning of the logical file. Specify the 
starting reference as the second operand in 
the SETL macro instruction for the file. 



The key of the first record must be 
moved to the main-storage field specified 
in the KEYARG=name entry of the DTFIS 
statement for the file. The IOCS derives 
the position of the key from the KEYLOC 
entry of the DTFIS statement. When search- 
ing for the specified record, the IOCS 
first locates the correct track and then 
examines the key area within each record on 
the track to find the specified record. 



SETL MACRO INSTRUCTION 



2. If it is KEY, sequential retrieval 
begins with the record whose key is 
contained in the field specified in the 
KEYARG=name entry. If the record is 
not found, control is transferred to 
the routine specified in the 
RTRVEX=name entry of the DTFIS state- 
ment. 

3. If it is GKEY, sequential retrieval 
begins with the record whose key is 
contained in the field specified in the 
KEYARG=name entry or, if this record is 
not found, with the record having the 
next greater key. If no greater key is 
available, the first GET causes the 
IOCS to branch to the address of the 
end-of-file routine. 

After the SETL macro instruction has 
been executed the disk-storage access 
mechanism is positioned for retrieval of 
the first record; therefore,, if the second 
operand is not BOF, the problem program 
must supply the key before the SETL macro 
instruction is executed. 



Note: Neither BOF nor GKEY require the 
RTRVEX entry. However,, if RTRVEX is not 
specified when KEY is used as the second 
operand, an error condition occurs. The 
Assembler prints a diagnostic message stat- 
ing that KEY is treated as an undefined 
symbol. 



This macro instruction ( SET Limits) pre- 
pares the IOCS for sequential processing 
and determines the point at which process- 
ing is to begin. 

r T T 1 

I Name | Operation | Operands | 

j.___ ^ 1 ^ 

|[name]|SETL | filename, BOF ] 

I [name] I SETL | filename, KEY 1 

I [name] I SETL j filename, GKEY | 

L . L X J 



GET MACRO INSTRUCTION 

This macro instruction causes the next 
sequential record (according to key) to be 
reti;ieved from an indexed-sequential file. 

r T T— 1 

I Name |Opei;ation J Operands \ 

].___ + ___+ ^ 

j [name] I GET | filename | 

i [name] I GET j filename, wo rkname j 
t X X J 



The SETL macro instruction can be writ- 
ten in one of three forms depending on the 
specified starting reference. In all 
forms, the first operand specifies the name 
of the file for which sequential retrieval 
and updating is desired. The file name 
must be the same as the one specified in 
the header entry of the DTFIS statement for 
the file. 

The meaning of the second operand is as 
follows : 

1. If it is BOF, sequential retrieval 
begins with the first record in the 
file,, i.e., the next GET macro instruc- 
tion for the file retrieves the first 
logical record of the file. 



The GET macro instruction can be written 
in either of two forms, depending on the 
area in whi:ch the records will be proc- 
essed. In both forms, the first operand 
specifies the name of the file from which a 
record is to be retrieved. The file name 
must be the same as the one specified in 
the header entry of the DTFIS statement for 
the file. 



If re'cords are to be processed in the 
I/O area, no second operand is required. 
If records are to be processed in a work 
area, the sex^ond operand specifies the name 
of the work area to which each record is to 
be moved. 
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Because the IOCS waits for the comple- 
tion of each GET macro instruction, the 
retrieved record is available when the next 
sequential instruction in the problem pro- 
gram is executed. 



r T T 1 

I Name | Operation | Operand | 

|. 1 + J 

I [name] | ESETL | filename ( 

L i X J 



PUT MACRO INSTRUCTION 

This macro instruction causes the record 
retrieved by the preceding GET macro 
instruction (for the same file) to be 
replaced in the location from which it was 
retrieved. 

r T T • 1 

I Name | Operation | Operands | 

^ 1 1 _ ij 

I [name] | PUT | filename | 

I [name] JPUT j filename, workname | 

L J. i_ J 

The PUT macro instruction can be written 
in either of two forms, depending on the 
area in which the records will be built. 
In both forms, the first operand specifies 
the name of the file to which a record is 
to be returned. The file name must be the 
same as the one specified as the first 
operand of the GET macro instruction that 
retrieved the record. 



If records are processed in the I/O 
area, no second operand is required. If 
records are processed in a work area, the 
second operand specifies the name of the 
work area from which records will be moved 
to the I/O area. Note that the work area 
referred to in the PUT macro instruction 
will frequently be the same as the one in 
the GET macro instruction. However, any 
work area may be referred to in the PUT 
macro instruction. 



A PUT macro instruction is required only 
when a record in the file has been changed 
(updated) . 



If a PUT macro instruction is not issued 
for any record in the block, the subsequent 
GET for the file will not cause the writing 
of the block. At the end of the file, the 
ESETL macro instruction causes the last 
block processed to be written, if neces- 
sary. 



ESETL MACRO INSTRUCTION 

This macro instruction (End SET Limit) 
indicates the end of a sequential retrieval 
and updating operation that was initiated 
by a SETL macro instruction. 



The operand contains the name of the 
file that has been sequentially retrieved 
and updated. The file name must be the 
same as the one specified in the operand of 
the SETL macro instruction that initiated 
sequential processing. 



When, in a program, sequential retrieval 
is to be followed by the addition of 
records to the file (i.e., IORCUT=ADDRTR 
has been specified) or by random retrieval, 
write the ESETL macro instruction at the 
end of sequential retrieval and before you 
issue a WRITE instruction for the first 
addition or a READ instruction for the 
first record to be randomly retrieved. If 
sequential retrieval is to be resumed when 
random retrieval and additions have been 
completed, issue another SETL macro 
instruction. Figure 16 illustrates the 
proper use of SETL and ESETL macro instruc- 
tions. 



SETL filename, EOF 



GET filename 



PUT 


filename 


• 

GET 


filename 


PUT 


filename 



ESETL 

WRITE 

WAITF 
READ 

WAITF 
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WAITF 
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save key of last record 
processed sequentially if 
that key is to be used in 
the next SETL instruction 
filename 

filename, NEWKEY 
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provide proper key for 
the SETL instruction 

filename 

filename, GKEY 



Figure 16. Use of SETL and ESETL Macro 

Instructions for ICROUT=ADDRTR 



Instructions for Processing Indexed-Sequential Disk Files 



Organizing and Processing Indexed-Sequential Files 



The first part of this section provides 
information on the organization of indexed- 
sequential files, i.e., on cylinder and 
track indexes and overflow areas. The 
second part tells you how an indexed- 
sequential file is processed by the IOCS. 
This information is not required for coding 
a program. However, you might find it 
useful reading since some of the 
information is liable to help you to 
improve your coding. 



ORG?^NIZING AN INDEXED-SEQUENTIAL FILE 

When a logical file of presorted records is 
loaded onto disk, the IOCS organizes the 
file in such a manner that you have direct 
access to any record. 

Reference can be made to records at 
random throughout the logical file, or to a 
series of records in the file in their 
presorted sequence (collating sequence). 
The IOCS routines also provide for addi- 
tions to the file at a later time, still 
maintaining both the random and the sequen- 
tial access capabilities. 

The IOCS loads the records one after the 
other into a specified area of the disk 
volume. This area is called the prime data 
area. It may consist of one or more disk 
extents. To define the prime data area, 
you must specify the starting and ending 
limits of its extent (s) in job control 
XTENT statements (one for each extent) . 
The limits of prime data extents must be on 
cylinder boundaries. 



Indexes 

As the IOCS loads a file of records sorted 
by control information,, it builds two 
indexes for the file - a track index and a 
cylinder index . These indexes are utilized 
for both random and sequential access to 
records. 

Once a file has been loaded and the 
related indexes have been built, the IOCS 
routines search for specified records by 
referring to the indexes. When a particu- 
lar record (specified by the key) is 
requested for processing, the IOCS searches 
the cylinder index,, then the track index, 
and finally the individual track. 

The indexes are made up of a series of 
entries, each of which includes the address 
of a track and a key as follows: 



1. For the track index., this key is that 
of the last record on a specific track. 
Note:. If the length of the last block 
on a given track exceeds the available 
space, the portion in excess is written 
on the subsequent track. Thus, the 
'last record' of a track may, in 
effect, be located on the next higher 
track. 

2. For the cylinder index, this key is the 
highest key within each cylinder. 

The entries are normally blocked, i.e., 
one disk sector contains more than one 
entry. The exact number of entries per 
sector and the number of sectors required 
for an index depend on the keylength and on 
the number of prime data tracks (10 minus 
number of cylinder-overflow tracks) . The 
track address requires six bytes. 

Track Index. The track index is the low- 
level index for the logical file. A 
separate track index is built for each 
prime data cylinder used by the file; it 
contains index entries for that cylinder 
only. Each track index is located on the 
cylinde:t: that it incexes. It always begins 
on the first sector of that cylinder. 

When the track indexes are originally 
built, they contain two identical entries 
(noi;mal and ovei;flow) for each track util- 
ized on the cylinder. The use of two index 
entities for each track is required because 
of overflow records that will occur if more 
records are inserted in the file at a later 
time. (Refer to Overflow Areas and Addi- 
tion of Records^ ) When overflow records 
for a track exist, the second (overflow) 
index entry contains the key of the highest 
record in the overflow chain and the 
address of the lowest record in the over- 
flow chain for the track. For example, if 
the prime data area of the logical file 
utilizes eight tracks on a cylinder when 
the file is built and two tracks are over- 
flow tracks, the track index (on track 0) 
might contain the entries shown in Figure 
17. Any subsequent records on track are 
logical-file data records. The first data 
record following the track index always 
begins with a new sector. 

Cylindei: Index. The cylinder index is the 
high-level index for the logical file. 
This index contains one entry for each 
prime data cylinder occupied by the file. 
The cylinder index is built in a separate 
extent, which you specify in a job control 
XTENT statement. It must be on cylinder 
boundaries. The index must be built on a 
cylinder that does not contain data records 
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for the file (but it may contain the inde- 
pendent overflow area) . This cylinder may 
be on a separate volume provided this vol- 
ume is on-line whenever the logical file is 
processed. 

The cylinder index contains one entry 
for each cylinder occupied by the data 
file. Each entry contains the highest key 
associated with the cylinder and the 
address of the track index for that cylin- 
der. For example., if a file requires six 
cylinders, the cylinder index might contain 
the entries shown in Figure 18 . The dummy 
entry indicates the end of the cylinder 
index. 

Overflow Areas and Addition of Records 

After a logical file has been loaded onto 
disk, it may subsequently become necessary 
to add records to the file. The records to 
be added may 

1. contain keys that are above the highest 
key currently in the file (in this 
case, the records constitute an exten- 
sion of the file) , or 

2. contain keys that are either lower than 
the lowest key currently in the file or 
fall between keys already in the file 



(in this case, the records are to be 
inserted in proper sequence in the 
organized file) . 



If all records to be added have keys 
that are higher than the highest key in the 
present file, the new records, whj.ch must 
be presorted, can be added by loading them 
into the file. No overflow area is 
required. 

If new records are to be inserted among 
those already organized, an overflow area 
is required. The IOCS uses overflow areas 
to permit the insertion of records without 
a complete reorganization of the esta- 
blished file. The random and sequential 
retrieval of records is maintained by 
inserting references to the overflow chains 
in the track indexes and by using a chain- 
ing technique in the overflow records. For 
chaining, a sequence-link field is suffixed 
to the data irecord in the overflow area. 
The sequence-link field is a six-byte area. 
It contains the address of the record in 
the overflow area that has the next higher 
key. Thus, a chain of sequential records 
can be followed in a search for a particu- 
lar record. The sequence-link field of the 
highest record in the chain indicates the 
end of the chain. 
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Figure 17. Schematic Example of a Track Index 
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•Figure 18. Schematic Example of a Cylinder Index 
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Figure 19. Data Records as Originally Organized on Tracks 2 and 3 



To add a record, the IOCS searches the 
established indexes first to determine on 
which track the record must be inserted. 
The keys of the last records on the tracks 
in the present file determine the track 
where an inserted record belongs. A record 
is always inserted on the track where: 



the last key is higher than the key of 
the insertion record, and 



the last key of the preceding track (if 
any) is lower than the key of the 
insertion record. 
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dded to either Track 1 
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a particular track at 
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Updating of the Track Index. The IOCS 
updates the track index to reflect the 
changes caused by the addition of records. 
The first index entry for the track has the 
key field changed to indicate the new last 
record located on the track. The second 
index entry for the track has the track 
address changed to point to the address of 
the lowest overflow record of the chain. 
If a record with key 102, for example, is 
added to a file organized as shown in Fig- 
ure 19 and if the overflow area is located 
on Track 9, the track index records contain 
the information shown in Figure 20. 



Figure 20. Example of Track Index Entries 
Before and After Addition of a 
Record on Track 2 



Chaining by Sequence Link Field. If a 
record is to be placed between the last 
record currently on the track and the last 
record originally on the track it belongs 
in the overflow area., The IOCS writes the 
record in the overflow area following the 
last record previously written. The IOCS 
searches through the chain of records asso- 
ciated with the corresponding track for 
this record and identifies the sequential 
position the record should take. Then the 
sequence-link fields of the new record, and 
the record preceding it by sequential key, 
are adjusted to point to the proper 
records. 



If, for example, records with the keys 
.15 0., 145, and 14 are already in the over- 
flow area and record 142 is to be added, 
the sequence-link fields of records 140 and 
142 must be adjusted (see Figure 21) . 
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Figure 21. Example of Sequence-Link Fields 
Adjusted for Addition of a 
Record {142) 



in the cylinder overflow areas within 
the data file. When any cylinder over- 
flow area is full, the additional over- 
flow records from that cylinder are 
written into the independent overflow 
area. 

Method 3 (described above) is prefera- 
ble to methods 1 and 2,, because it 
provides faster retrieval and avoids 
frequent file re-organizations. Faster 
retrieval is achieved because most of 
the overflow records are located in the 
cylinder-overflow area. File re- 
organization is avoided because the 
overflow records can be stored in the 
independent overflow area if the 
cylinder-overflow area is full, so that 
the program need not enter the ADAREX 
routine. 



If a record is inserted into the last 
track of a file, the EOF record is trans- 
ferred to the overflow area in the same 
manner as the last data record on any other 
track. 

Overflow-Area Options ; You may specify the 
location of the overflow area(s) for a 
logical file. The overflow areas may be 
built by one of three methods: 

1. The overflow area for records may be 
located on each cylinder within the 
prime data area that is specified by 
one or more job control XTENT state- 
ments for the data file. In this case, 
you must specify the number of tracks 
to be reserved for overflow records on 
each cylinder occupied by the file. 
The overflow records that occur within 
a particular cylinder are written in 
the cylinder overflow area for that 
cylinder. 

Specify the number of tracks to be 
reserved for each cylinder overflow 
area in the CYLOFL entry of the DTFIS 
statement when the records of the par- 
ticular file are to be loaded or when 
records are to be added to an organized 
file. 

2. You can specify an independent overflow 
area for storing all overflow records 
of the logical file. In this case, 
include a job control XTENT statement 
when the program is executed to specify 
the disk extent to be used as overflow 
area. This area may be on the same 
volume with the data records, or on a 
different volume that is on-line. How- 
ever, it m^ust be contained within one 
volume. 

3. You may use both cylinder overflow 
areas (method 1) and an independent 
overflow area (method 2). In this 
case, overflow records are first placed 



The block length (depending on the num- 
ber and length of the records) for the file 
applies to bath the prime data area and the 
ovei;flow area(s). Since a sequence-link 
field (a 6-byte area) is suffixed to each 
individual record in an overflow area, the 
number of records to a block in that area 
may be less than the number of records to a 
block in the corresponding prime data area. 
You need not be concerned about this 
because the IOCS computes the blocking 
factor according to the block length. 

Note ; The Model 20 IOCS does not permit the 
extents of an organized file to be changed. 
Therefore, if the available overflow areas 
are full and records are still to be added, 
the file must be completely reorganized. 

When an indexed-sequential file is proc- 
essed, a field is made available for updat- 
ing the number of tagged deletion records. 
You can address this two- byte field in the 
problem program. When processing is com- 
pleted, i.e., when a CLOSE macro instruc- 
tion is issued, the updated field is re- 
written into the forraat-2 label of the 
pertinent file. 

You may address the first byte of this 
area in main storage by defining an address 
constant that contains the file name of the 
pertinent file plus a displacement of 120. 

Example ; If the file name is PAYROLL, 
the address constant is: 
DC Y(PAYROLL+120) 



Storage Areas 

Records in one logical file are transferred 
to or from one or more I/O areas in main 
storage. The areas must always be large 
enough to contain a block of records or a 
single record if unblocked records are 
specified. For the functions of adding or 
retrieving records, the I/O area must also 



Organizing and Processing Indexed-Sequential Files 



89 



provide space for a sequence-link field 
that is used in conjunction with overflow 
records when the entry RECFORM=FIXUNB is 
specified (see Overflow Areas and Addition 
of Records) above. The I/O area require- 
ments are illustrated in Figure 22 and 
described in detail under lOAREAL , lOAREAR , 
and lOAREAS in the discussion of the DTFIS 
Statement. 



Multi-File Processing; If multi-file proc- 
essing with the same physical file is 
desired (i.e, , if two file names - A and B 
- have been specified in two file defini- 
tion statements, but the associated DLAB 
cards contain identical disk extents and 
file identifiers), issue a CLOSE macro 
instruction for the file with the filename 
A before opening the file with the filename 
B. 



Records may be processed directly in the 
I/O area or in a work area. If blocked 
records are to be processed in the I/O 
area, specify a register directly or sym- 
bolically in the lOREG entry of the DTFIS 
statement. The specified register is used 
for indexing, i.e., to' point to the begin- 
ning of each record and thus locate the 
record for processing. 



If the records are to be processed in a 
work area., specify one of the DTFIS entries 
WORKR or WORKS in the file definition 
statement. The IOCS moves each individual 
input record from the input area to the 
work area where it is available to the 
problem program for processing. Similarly,, 
the IOCS moves a completed record from the 
work area o the output area. The work area 
must be large enough to accommodate one 
data record. Whenever a work area is used, 
an I/O register is not required. 



PJ^OCESSING AN INDEXED- SEQUENTIAL FILE 

This section informs you about the func- 
tions the IOCS performs when loading or 
adding records, or when retrieving and 
updating records randomly or sequentially. 



Loading Records 

As records are loaded onto disk, the IOCS 
causes the writing of a track-index entry 
each time a track is full,, and the writing 
of a cylinder- index entry each time a cyl- 
inder is full. When a track index is com- 
pleted, the IOCS fills the remaining por- 
tion of the sector with 1-bits. 

The ENDFL macro instruction causes the 
writing of the last block of data records, 
which contains the end-of-file record. It 
also causes any required index entries to 
be written, including the dummy entry for 
the cylinder index. 



LOAD ( ADD ) Blocked Records 
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SL = Sequence Link 



Figure 22. I/O Areas Required for Loading or Adding Function 



90 



Adding Records 

Before a WRITE macro instruction can be 
executed, the access mechanism must locate 
the track on which the record is to be 
inserted. Normally^ this is done by first 
searching the cylinder index and then the 
track index. However, before the access 
mechanism is moved to check the cylinder 
index, the IOCS checks the I/O area in main 
storage containing the track index to 
determine if the proper track- index sector 
is already 'in main storage from a previous 
add-record operation. If so, access move- 
ment to the cylinder index is not necessary 
and the appropriate track- index entry is 
used to obtain the proper insertion 
address. This method of checking the 
track-index sector in main storage before 
initiating access movement may reduce the 
average access time considerably if the 
input records are pre-sorted. In this 
case, the proper track index is likely to 
be in main storage for the majority of the 
insertion records. 



If the proper track index is not in main 
storage, the IOCS causes the following: (1) 
a seek to the cylinder index, (2) a search 
for the entry pointing to the proper track 
index,, and (3) a seek to this track index. 
The IOCS then transfers control to the 
problem program to permit processing while 
the access mechanism is moved to the track 
index location. 



The WAITF macro instruction causes the 
remaining functions of the preceding WRITE 
macro instruction, i.e., search of the 
track index, insertion of the record in the 
prime data or overflow area, and updating 
of track index entries, to be performed. 



When all the functions of the preceding 
WRITE macro instruction are completed, the 
IOCS returns control to the instruction 
immediately following the WAITF macro 
instruction. 



Inserting Records into a File of Unblocked 
Records. The IOCS searches the indexes to 
locate the correct track for the record. 
If the correct track is not an overflow 
track, the IOCS performs a scan if a prime 
data block does not occupy more than one 
sector. Otherwise, it performs an 
equal/high search by comparing the keys of 
the records on the track with the key of 
the record to be inserted. When a record 



is found whose key is equal to or higher 
than the key of the insertion record, that 
record is read from the track and, placed 
into main storage (I/O area). The two keys 
are compared to determine if a duplicate 
record was .found. If a duplicate record 
was found, the IOCS branches to the routine 
specified in the DUPREX entry of the DTFIS 
statement. If no duplicate key was found, 
the IOCS causes (1) the insertion record 
(in the WORKL area) to be written on the 
track and (2) the record that was read from 
the track into the I/O area to be moved 
into the WORKL area. 



The next record on the track is read 
into the I/O area. Then the record in the 
work area is written on the track. This 
sequence of operations is repeated until 
the last record on the track has been read 
into the I/O area. This last record is 
then written into the appropriate overflow 
area, and the appropriate track-index 
entries are updated. The IOCS uses the 
cylinder overflow area, provided this area 
has been specified in the CYLOFL entry of 
the DTFIS statement and the area is not yet 
full. Figure 23 illustrates the status of 
the areas in main storage (lOAREAL and 
WORKL) during an add'-record operation as 
described a.bove. 



If the cylinder overflow area is full, 
or if you specify only an independent over- 
flow area by means of a job control XTENT 
statement, the last record is transferred 
to the independent overflow area. If an 
independent overflow area has not been 
specified (or is full) and the cylinder 
overflow area is full, there is no place to 
store the overflow record. The IOCS then 
branches to the routine specified in the 
ADAREX entry of the DTFIS statement. 



If the proper; track for the insertion 
record is an overflow track, the IOCS 
searches the overflow chain and checks for 
a duplicate record. If a duplicate record 
is found, the IOCS branches to the DUPREX 
routine. If no duplication is found, the 
IOCS causes (1) the record to he written in 
the next available location within the 
overflow area, including the 6-byte 
sequence-link field and (2) the appropriate 
linkages to be adjusted to maintain sequen- 
tial order by key. The new record is writ- 
ten in either the cylinder overflow area or 
in the independent overflow area. If both 
these areas are full, the IOCS branches to 
the ADAREX routine. 
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location previously 
occupied by record 040 



After insertion 
record has been 
written 





is written onto disk at 
location previously 
occupied by record 050 





After record 040 
has been written 

Record 050 is written onto disk in the appropriate overflow area directly from lOAREAL. 

Records on Track after Insertion 



Record 010 


Record 020 


Record 030 


Record 031 


Record 040 



RSL = Reserved Space for Sequence-Link Field 
SL = Sequence-Link Field 

(required to permit proper chaining of overflow records) 



Record on 
overflow track 




Figure 23. Status of Main Storage Areas lOAREAL and WORKL During an Add-Record Operation 
for a File Containing Unblocked Records 



Inserting Records into a File of Blocked 
Records. The IOCS searches the indexes to 
locate the track that contains the begin 
address of the block into which the new 
record is to be inserted. This track may 
be an overflow track. 

If the track that contains the begin 
address of the block is not an overflow 
track,, the IOCS searches the key areas of 
the records on the track to locate the 
desired block. When located, the block is 
read into the I/O area. 

The IOCS then examines the key areas 
within each logical record to find the 



exact position to insert the new record. 
The IOCS checks for duplication of records 
and, if a duplication exists, tranches to 
the DUPREX routine. If there is no dupli- 
cate record, all records below the insert 
position are shifted to the left by one 
2;ecord to make room for the new record that 
is moved from the WORKL area into the I/O 
area. As a result, the first record of the 
block is now contained in the WORKA area. 

The block is then written back onto disk 
beginning with the leftmost byte of the 
WORKA area. However, the record that orig- 
inally was the last record of the block is 
not written at this time. This record is 
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moved into the WORKA area after the comple- 
tion of the WRITE operation. A subsequent 
read instruction reads the next block from 
disk into the I/O area. This is followed 
by a write instruction that begins with the 
V70RKA area again. This sequence of opera- 
tion is repeated until all blocks on the 
track have been processed. 



After the last block of the track has 
been written, one record is left at the end 
of the I/O area. This record is then set 
up as an overflow record with the proper 
sequence-link field and written into the 
overflow area. The indexes are updated and 
the IOCS returns control to the problem 
program for the next record to be added. 
If no overflow area is available, the IOCS 
branches to the ADAREX routine. 



Figur;e 24 illustrates the status of the 
main storage areas lOAREAL, WORKL, and 
WORKA during an add-record operation for a 
file containing blocked records. 



If the point of insertion is on an over- 
flow track, the functions are the same as 
described a,bove unoer Inserting Records 
into a File of Unblocked Reco r ds , 



Random Processing 

The READ macro instruction causes the IOCS 
to search the indexes to determine the 
track that contains the desired record. 
The search for the apprppriate record is 
performed in two dif;ferent manners. 



Track before Insertion 
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i^ 1 
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Record 
020 


Record 
030 


Record 
040 


Record 
050 


Record 
060 


Record 
070 


Record 
080 


Record 
090 


Record 
100 



Record to be 
inserted 



-WORKL- 



Record 031 



Status of Areas in Main Storage 



After desired block 
has been read into 
the I/O area 



After the insertion 
of Record 03 1 
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Note; New block begining with record 010 including record 040 is written onto disk 
at the location of block A 
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Record 050 


Record 020 


Record 030 


Record 031 


Record 040 


Record 050 








inARFAl 



















Record 050 is moved 
to WORKA 



After the next 
block has been read 
into the I/O area 



Note; New block begining with record 050 including record 090 is written onto disk 
at the location of block B. Record 100 is written into an overflow block. 

Figure 24. Status of Main Storage Areas lOAREAL, WORKL, and WORKA During an Add- Record 
Operation for a File Containing Blocked Records 
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a) If the block length (i.e., the number of 
records times therecord length) is less 
than 270 bytas, the program simply scans 
the track concerned until the appropri- 
ate record is found. Then the record is 
read into the I/O area (lOAREAR). 

b) If the block length exceeds 270 bytes, 
all records on the given track are suc- 
cessively read into the I/O area until 
the correct record is encountered. 



The WRITE macro instruction causes the 
record retrieved by the preceding READ 
macro instruction and processed by the 
problem program to be rewritten onto disk 
at the location from which it was 
retrieved. 



The WAITF macro instruction causes the 
remaining functions of the preceding 
READ (WRITE) macro instruction (e.g., search 
of the track index, insertion of the 
record) to be performed. When all func- 
tions are completed, the IOCS returns con- 
trol to the instruction immediately follow- 
ing the WAITF macro instruction. 



Sequential Processing 

If a GET macro instruction with the file 
name as the only operand is used and the 
file contains unblocked records, one logi- 
cal record is retrieved and made available 
for processing in the I/O area. If the 
file contains blocked records, this GET 
causes the entire block to be read into the 
I/O area when no further records are avail- 
able from the block that is already in main 
storage. The IOCS then makes the addresses 
of the records available one at a time in 
the register specified directly or symboli- 
cally in the detail entry lOREG of the 
appropriate DTFI3 statement. Each subse- 
quent GET causes the contents of the I/O 
register to be increased by the number of 
bytes contained in one record. 



blocked records, this GET causes the entire 
block to be read into the I/O area when no 
further records are available from the 
block that is already in main storage. The 
IOCS then makes the first record of the 
block available for processing in the spec- 
ified work area. Each subsequent GET caus- 
es the next record to be made available for 
processing. 



If a file containing blocked records is 
retrieved and updated, the GET macro 
instruction determines whether or not an 
output operation is necessary. Because a 
PUT macro instruction need only be executed 
for those records that have been updated, 
the PUT macro instruction merely indicates 
whether or not a block of records should be 
written onto disk after all records in that 
block have been processed. When a GET 
macro instruction that refers to the first 
record in a new block is executed, the IOCS 
determines whether or not a PUT macro 
instruction Was issued for a record in the 
block just completed. If there was., that 
block is returned to disk before the new 
block is read. If no PUT macro instruction 
was issued, the output operation is omitted 
because no record in the block was changed. 



For unblocked records, the execution of 
a PUT macro instruction causes a record to 
be written into the disk storage location 
from which a record was retrieved by the 
preceding GET macro instruction for that 
file. 



For blocked records, the execution of a 
PUT macro instruction does not initiate the 
writing of records onto disk. Instead, it 
only indicates that a block should be writ- 
ten before the next one is read. If a work 
area is specified, the execution of a PUT 
macro instruction will also move the record 
from the work area to its proper position 
within the block. The writing of the block 
is controlled as described for the GET 
macro instruction above. 



If a GET macro instruction with two 
operands (filename and workname) is used 
and the file contains unblocked records, 
the record read from disk into the I/O area 
is made available for processing in the 
specified work area. If the file contains 



For blocked records, the ESETL macro 
instruction causes the last block of 
records to be returned to disk if a PUT 
maci;"o instruction was issued for any record 
in that block. 
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Monitor Macro Instructions 



In Assembler language prograins, you can 
issue five macro instructions to communi- 
cate with the Monitor. Two refer to the 
communication region (COMRG and MVCOM) , two 
request functions of the Fetch routine 
(FETCH and EOJ) and one refers to the 
printer-keyboard input area (IQIPT) . 
Appendix C is a summary of these Monitor 
macro instructions. 



number 



The number of bytes to be modified in 
the area (can be any of the decimal 
values 1-12). 



address 



The name of the storage location that 
contains the modifying bytes. (A relo- 
catable expression may be used instead 
of a name, ) 



COMRG MACRO INSTRUCTION 

The COMRG macro instruction is used to 
refer to the communication region. It 
causes the address of the first byte of the 
region, which is on a halfword boundary, to 
be placed into register 8. Then, any field 
in the region can be referred to by rela- 
tive addressing- 

The COMRG macro instruction has the 
following format : 

r T T 1 

[Name I Operation I Operand I 

^ 1 1 ^ 

I 1 COMRG I 1 

L ± X . J 

Example; The following sequence of 
instructions places the address of the 
beginning of the communication region into 
register 8, loads the contents of bytes 20 
and 21 of the communication region (User 
Area II) into register 12, and then stores 
the contents of register 12 in a location 
whose symbolic address is TEST. 

COMRG 

LH 12,20(0,8) 

STH 12, TEST 



Note; After the execution of a MVCOM macro 
instruction, register 8 contains the 
add2;ess of the communication region. 

Example: If MOD is the symbolic address oJ 
a location containing the binary number 
10001111, the statement; 

MVCOM 15,1, MOD 

causes the riumber 10001111 to be moved to 
byte 15 of the communication region. 

FETCH MACRO INSTRUCTION 

The formats of the FETCH macro instruction 

are: 



r T T 1 

I Name I Operation] Operand | 

J. 1 1 ^ 

j i FETCH I phasenamie | 

J. + + ^ 

I I FETCH I 1 

L X X J 

phasename 

In a disk-resident system, the name of 
the phase that is to be loaded from the 
core- image library into main storage- 
In a card-resident system, the phase 
that physically follows the phase con- 
taining FETCH is to be loaded (phase 
name is ignored) . 



MVCOM MACRO INSTRUCTION 

The MVCOM macro instruction is used to 
modify information in the user area of the 
communication region (bytes 12 to 23),. The 
format of the MVCOM macro instruction is: 



r T T 1 

I Name I operation] Operands ] 

^ 1 1 „ ^ 

1 1 MVCOM 1 first- byte, number, address ] 

L X X J 



No Operand 

The FETCH macro instruction may be used 
without an operand. In a disk-resident 
system, the omission of the operand 
causes the next subphase of the last 
phase specified to be loaded. A sub- 
phase -is a separately executable routine 
within a phase of a problem program. It 
may be overlaid after execution. In a 
card-resident system, the phase that 
physically follows the phase containing 
FETCH is to be loaded. 



f irst- byte 

The relative address of the first byte 
to be modified in the user area (can be 
any of the decimal values 12-23). 



The Monitor uses registers 8, 14, and 15 
in executing the FETCH macro instruction 
and does not restore their contents. If 
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you use any of these registers in your 
program, you should store their contents 
before issuing a FETCH macro instruction. 

When you use card and printer files, 
issue a WAITC macro instruction prior to 
issuing a FETCH macro instruction to ensure 
thait all pending card and printer inter- 
rupts are handled properly. (Refer to 
Loading a Program Phase under Programming 
Considerations) . 



Note: If you use your own input/output 
routines instead of the macro instructions 
provided by the IOCS, the new PSW may be 
used to point to the interrupt routine. 
Ensure that all pending interrupts are 
cleared and the original contents of the 
new PSW — the begin address of the Monitor 
interrupt routine — is restored before you 
issue a FETCH or EOJ macro instruction. 



EOJ MACRO INSTRUCTION 

The EOJ (end of job) macro instruction is 
used at the end of the last phase of a 
program. It indicates to the disk-resident 
Monitor that the Job Control program is to 
be called to prepare the next job for proc- 
essing. 

When program execution is controlled by 
the card-resident Monitor, an EOJ macro 
instruction causes a system halt. Loading 
of the next physical program that follows 
(the Job Control deck that precedes the 
next object program deck) is initiated by 
pressing START. 



The form.at of the EOJ macro instruction 



is : 



r T T" 1 

I Name! Operation! Operand | 

). 1 + ^ 

I 1 EOJ 1 I 

L J. X. J 



IQIPT MACRO INSTRUCTION 

With the IQIPT macro instruction you can 
refer to the printer-keyboard input area 
defined at Monitor generation time. This 
macro instruction loads the begin address 
of the input area into register 8. Thus, 
you can refer to any field in the area by 
means of this base address and a displace- 
ment. The format of the IQIPT macro 
instruction is: 

r T T 1 

1 Name I Operation I Operand j 

i. 1 1 ^ 

I I IQIPT I I 

L X X J 



Unlike the macro instructions for printer- 
keyboard input and output files, the IQIPT 
macro instruction is generated in-line in 
the program and does not require linkage to 
any DTF routines. It can be used only in 
program.s executed under the control of a 
Monitor with a printer-keyboard input area. 
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Programming Considerations 



This section informs you about the 
restrictions you have to observe V7hen writ- 
ing a program. It tells you which reg- 
isters you may use and how you can reduce 
main storage requirements by applying the 
overlay programming technique. 



RESTRICTIONS 

When writing a problem program, observe the 
following? 

1. To avoid multiple definition of sym- 
bols, do not use any symbols starting 
with the letter I because all symbols 
used by the IOCS start with this let- 
ter. 

2. Do not use file names that are longer 
than seven characters because the IOCS 
uses the eighth character position. 

3. To avoid multiple-definition of sym- 
bols, do not use a file name followed 
by an additional character as a symbol 
in your program because the Assembler 
derives entry points to the IOCS by 
adding a character to the file name. 
For example,, if READCRD has been 
assigned as the name of an input file, 
do not to use symbols such as READCRDA, 
READCRDB, etc., in the source program. 

4. When you use the IOCS in your program, 
you are not allowed to issue an XIO 
instruction because this would cause an 
unexpected interrupt and thus interfere 
with automatic scheduling of I/O opera- 
tions by the IOCS. 

Loading a Program Phase Including Fil e 
Definition Statements 

When a new program phase including file 
definition statements is loaded by means of 
a FETCH macro instruction,, the permanent 
link data area of the Monitor program is 
modified to point to the interrupt routines 
in the new program phase. As a result, any 
I/O macro instruction referring to a file 
defined in the preceding program phase can 
no longer be executed. You must also 
ensure that all pending card and printer 
interrupts from the preceding program phase 
have been handled properly. Do this by 
issuing a WAITC macro instruction before 
you issue the FETCH for loading the next 
phase. Figure 25 shows the use of the 
WAITC macro instruction when another pro- 
gram phase is to be loaded. 

Note that a second or subsequent program 
phase cannot be loaded from a card input 
device in which data cards were read during 
any of the preceding program phases. 



When, in an inquiry or in a mainline 
program, you issue a FETCH macro instruc- 
tion for. a separately assembled program 
that contains file definition statements, 
you must ensure that this program was also 
assembled as inquiry or mainline program, 
respectively. Otherwise, no file protec- 
tion is provided for this program during 
inquiries. 



OVERLAY PROGRAMiyilNG FOR OPEN AND CLOSE 

When your program processes one or more 
tape and disJc files, you can use the over- 
lay programming technique to reduce the 
number of main-storage positions required. 
This programming technique allows you to 
have part or all of the OPEN I/O routines 
for tape and disk files overlaid the prob- 
lem program and to have part or all of the 
problem program overlaid by the CLOSE rou- 
tines for tape and disk files. 

When you specify OVLAY in the DTFEN 
statement, the OPEN and CLOSE routines for 
tape and disk files are not generated as 
part of the DTF routines. Instead, they 
are generated in-line, i.e., when the 
Assembler encounters the first (or only) 
OPEN (and CLOSE) macro instruction for a 
tape or disk file. 

It is not sufficient, however, to speci- 
fy OVLAY in the DTFEN statement in order to 
have the OVLAY function performed. In 
addition, you must observe the following 
(refer to Figure 25) : 

1. Write your own tape label handling 
.routines (if any), including those 

needed when closing a file (or files) , 
ahead of the first OPEN macro instruc- 
tion. 

2. Position all literals required by these 
label routines ahead of the first OPEN 
macro instruction (use an LTORG Assem- 
bler instruction) . 

3. Open all tape and disk files before the 
OPEN routines are overlaid by the prob- 
lem program. 

Note: If a program utilizing the over- 
lay programming technique is loaded 
from cards and the loading device is 
also used as input device for a card 
file, make sure that the first card of 
the data file is in proper position to 
be fed from the hopper of the reading 
devi.ce at the time the file is opened 
by means of an OPEN macro instruction. 
(All program cards miust have teen read 
when the OPEN macro instruction for the 
card file is executed.) 
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The routines used to open files (and 
additional volumes of multi-volume 
files) are not available after they 
have been overlaid. Therefore, OVLAY 
cannot be specified in programs that 
process: 



multi-volume tape files, 
multi-file tape reels if m.ore than 
one file on the tape is used, and/or 
multi-volume sequential disk files. 



4. Initiate execution of the OPEN macro 
instruction by a subsequent XFR state- 
ment (XFR BEGIN in Figure 25) which may 
or may not immediately follow the OPEN 
macro instruction. A FETCH macro 
instruction (the first FETCH in Figure 
25) must be issued following the OPEN 
macro instruction. This FETCH causes 
part or all of the problem program to 
be loaded. Note that the FETCH macro 
instruction destroys the contents of 
register 8. 

5. Issue an ORG statement (ORG BEGIN in 
Figure 25) after the XFR statement. 
The operand of this ORG statement spe- 
cifies the address where the overlay is 
to start and may be the same as the 
name of the OPEN macro instruction. 
For details concerning the ACTION, 
REPRO, XFR, and ORG statements, refer 
to the SRL publications IBM System/360 
Model 20., Disk Programming System, 
Control and Service Programs , Form 
C2U-9006, and IBM System/3 60 Model 20, 
Disk and Tape Programming Systems, 
Assembler Language , Form C24-900 2. 

6. Use XFR and ORG statements (XFR and ORG 
XXX in Figure 25) prior to the CLOSE 
macro instruction. The operand of the 
ORG statement specifies an address in 
the preceding problem program. Only 
one CLOSE macro instruction should be 
issued for all files. 

7. Issue a FETCH macro instruction (last 
FETCH in Figure 25) for another program 
subphase (i.e., another part of the 
program) . This subphase would include 
the routines that have been generated 
for the CLOSE and EOJ macro instruc- 
tions. The loading of this subphase 
begins at the address specified as the 
operand of the ORG statement preceding 
the CLOSE macro instruction. 

8. If the overlay programming technique is 
employed, the Open routine, in some 
cases, already inserts the first record 
into the I/O area. Therefore, the I/O 
areas should be defined immediately 
preceding the load address of the indi- 
vidual program phases so that they are 
not overwritten. 



START 
DTF 



DTF 



DTFEN OVLAY 

Generated EOF and EOV 
routines 
LABADR 

Tape label handling 

routines 

BEGIN Problem program 

initialization 

USING 12 

USING 13 

DROP 12 
DROP 13 
OPEN diskfle, tapefle 



Generated OPEN routines 
for disk and tape files 



USING 


12 


USING 


13 


FETCH 




REPRO 




ACTION 


DUP 


XFR 


BEGIN 


REPRO 




ACTION 


NODUP 


ORG 


BEGIN 


ROUTIN 




OPEN 


cardf le 


• 


Generated linkage (to 


• 


DTFSR routine) 


WAITC 




FETCH 




REPRO 




ACTION 


DUP 


XFR 


ROUTIN 


REPRO 




ACTION 


NODUP 


ORG 


XXX 



DROP 12 
DROP 13 
FINIS CLOSE diskfle, tapefle, cardfle 



EOJ 
END 



FINIS 



Figure 25. Coding for File Processing 
Using the Overlay Technique 
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Note: 



All I/O areas have to be available 



during OPEN., Processing, and CLOSE time. 

Steps 1 through 5 cause some or all of 
the coding between the location indicated 
by the operand of the first ORG statement 
(BEGIN) and the next XFR statement (XFR 
BEGIN) to be overlaid by the problem pro- 
gram. Steps 6 and 7 cause the overlaying 
of part or all of the problem program, for 
instance, with the CLOSE routine and the 
end-of-job routines. 



User-Written Macro Definit ions 

When yoii use the overlay programming tech- 
nique, the program must not include any of 
your own macro definitions that contain any 
of the global SETB symbols SBG0-£BG19, 
6BG21,, 6BG27-£BG28, &BG69, and feBG80-gBG87. 
(Note that you should not use the global 
SETB symbols 6BG13, 6BG27, and SBG28 even 
when OVLAY is not specified.) You must 
either change the global SETB symbols in 
your macro definitions or write the program 
without the use of the overlay programming 
technique. 

Assignment of Base Registers 

Since the OPEN and CLOSE routines are gen- 
erated in-line, consider their approximate 
sizes when assigning and loading the base 
registers for the program. For information 
on the sizes of these routines, refer to 
the SRL publication IBM System/36 Model 
20, Disk Programming System,, Performance 
Estimates , Form C33-6003. 

When DTFEN OVLAY is specified, the rou- 
tines for the processing of the IBM stand- 
ard labels a.]:e generated as part of the 
OPEN routines and not as part of the DTF 
routines. These routines use registers 9 
and 10 as base registers. 

You must drop your base registers prior 
to issuing the first OPEN or CLOSE macro 
instruction. Immediately after an OPEN 
macro instruction, the USING instructions 
must be repeated. It is not necessary to 
reload the registers, however, because 
their contents are restored to the value 
they contained before the OPEN macro 
instruction was executed (see Figure 25) . 



Register 14 and 15 have special restric- 
tior^s on their use in programs containing 
BSCA IOCS macro instructions. Refer to the 
SRL publication, IBM Svstem/360 Model 20, 
Binary Synchronous Communications Adapter , 
Form C33-4001. 



You may freely use any or all of the 
registers from IQ through 13. Registers 8, 
9, 14, and 15 are not readily available for 
reasons explained below. 

Register 8 is used by the Monitor macro 
instructions FETCH, IQIPT, COMRG, and 
MVCOM. Save the contents of register 8 
before issuing any of these macro instruc- 
tions . 

Registers 8 and 9 are used as operand 
registers in the LABADDR routine. In this 
routine, the two registers do not contain 
the values that were placed into them in 
the problem prog:!:am. The two registers are 
restored to their original values if you 
return to the IOCS by issuing an LBRET 
macro instruction with a 1 as operand. 

Registers 9 and 10 are not readily 
available when OVLAY is specified in the 
DTFEN statement. If you issued USING 
instructions for register 9 and 10 at the 
beginning of the program, you must drop 
these registers prior to issuing the first 
OPEN macro instruction. You must repeat 
the USING instructions immediately after 
the OPEN macro instruction. Reloading the 
register is not required because its con- 
tents are restored to the value that was 
contained in the register before the execu- 
tion of the OPEN macro instruction. 

Registers 11 and 15 are used by the 
FETCH macro instruction and by the IOCS 
imperative macro instructions (GET, PUT, 
etc.) If you use one or both of these 
registe3;s in the problem program, make sure 
that their contents are no longer required 
before you issue an imperative macro 
instruction or a FETCH macro instruction, 
or save the contents of these registers if 
you need them at a later time. 

If you anticipate transition to a larger 
System/3'60 model, be aware that the Basic 
Programming Support and the Basic Operating 
System do not allow you to use registers 12 
and 13. 



REGISTER USAGE 

Registers 11, 12 and 13 have special res- 
trictions on their use in programs contain- 
ing 1U19/1259 Magnetic Character Reader 
IOCS macro instructions. Refer to the SRL 
publication, IBM System/360 Model 20, Disk 
and Tape Programming Systems,, Input/Output 
Control System for the 1419 and 1259 Mag- 
netic Character Readers; Form C33-6001. 



Registers Required by the IOCS 

The record format and the combination of 
I/O and work areas used in the problem 
program determine the number of registers 
(none, one, or two) that must be specified. 
The summary in Figure 26 indicates when it 
is required to specify registers lOREG 
and/or VARBLD. 
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Record Format 1 


Number of 


Work Area 


lOREG 


VARBLD 




I/O 


Areas 


specified 


required? 


required? 


1. 




1 + 1 


Fixed Blocked ] 




1 


No 


Yes 


No 


Fixed Blocked j 




1 


Yes 


No 


No 


Fixed Blocked j 




2 


Yes 


No 


No 


Fixed Blocked 1 




2 


No 


Yes 


No 


Fixed Unblocked ] 




1 


No 


No 


No 


Fixed Unblocked j 




1 


Yes 


No 


No 


Fixed Unblocked | 




2 


No 


Yes 


No 


Fixed Unblocked j 




2 


Yes 


No 


No 


Variable Blocked \ 




1 


No 


Yes 


Yes* 


Variable Blocked j 




1 


Yes 


No 


No 


Variable Unblocked \ 




1 


No 


NO** 


No 


Variable Unblocked j 




1 


Yes 


No 


No 


Undefined | 




1 


No 


No 


No 


Undefined j 




1 


Yes 


No 


No 



J. X X X X ^ 

♦Output files only. 
++Required if read-backward is specified. 

L .^ J 

(Figure 26. Summary of Index Register Requirements 
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The Inquiry Program 



You can use the inquiry-request functions 
of the printer-keyboard to temporarily 
suspend the processing of a job in order to 
load and execute a program cataloged in the 
core- image library. Such a program is 
referred to as an inquiry program. You 
call an inquiry program into main storage 
by pressing the printer-keyboard Request 
key and entering the program name on the 
keyboard. An installation is not limited 
to a single inquiry program; any number of 
programs can be written and stored in the 
core-image library. 

For a program that is to be interrupted 
by an inquiry request, you must enter the 
specification MAINPRG=YES in the DTFBG 
statement. If you want to execute a pro- 
gram as an inquiry program, you must speci- 
fy INQPRG=YES in the DTFBG statement, and 
you must use a Monitor that contains rou- 
tines for inquiry interrupts. (For a des- 
cription of this Monitor, refer to the SRL 
publication I BM System/360 Model 20, Disk 
P rogramming System, System Generation and 
Maintenance , Form C33-6006.) 

The inquiry program specifies the opera- 
tions to be performed, using the inquiry 
record (if any) and any other files that 
are necessary. You can request an inquiry 
during the processing of a wide variety of 
programs. Note that if mainline programs 
are processing magnetic tape or card files 
that are also accessed by the inquiry pro- 
gram, it is probable that the interrupted 
program cannot be restored to its original 
status. You cannot process tape files with 
standard labels in an inquiry program. 

Special file protection routines are 
included in the IOCS Open and Close rou- 
tines for disk files. These routines are 
described under File Protection below. 



A recommended technique for disk files 
is to reserve at least two logical unit 
blocks (LUBs) for the exclusive use of 
inquiry programs. Since they are not used 
by the mainline programs, their contents 
are not altered by job control statements 
submitted during a job stream. 



The inquiry program., like any other 
program,, requires that label information be 
supplied in order to open disk files to be 
used in the program. The disk files, of 
course, must be on-line at the time the 
inquiry is requested. As an inquiry pro- 
gram is called via the printer-keyboard, 
i.e., it is not preceded by a separate job 



control run, permanent labels 
used for inquiry programs. I 
use temporary labels for an i 
gram, you must provide the re 
control information with the 
information for the mainline 
is to be interrupted by the i 
gram. (For details concernin 
permanent labels., refer to th 
tion IBM Svstem/36 Model 2 0^ 



should be 
f you want to 
nquiry pro- 
quired job 
job control 
program that 
nquiry pro- 
g the use of 
e SRL publica- 

Disk Program- 



ming System., Control and Service Programs , 



Form C24-9006. ) 



Inquiry Record 

When the operator wishes to enter an 
inquiry, he presses the Request key on the 
printer-keyboard. If the current program 
can be interrupted, the message 'ENTER 
PROGNAME' is printed unless a Monitor with 
the option INQMSG=NO is used. The operator 
must enter the name of the desired inquiry 
program and press EOT. If an inquiry 
record is processed by the program, i.e., a 
Monitor with the INQIPT option is used, the 
operator must then enter the data and again 
press EOT. If the p.rogram does not use an 
inquiry record, the EOT key must neverthe- 
less be pressed to signify the completion 
of input. 



Since the inquiry record is read into 
the input area INQIPT in the Monitor at the 
time an inquiry request is submiitted, you 
do not have to include a READ macro 
instruction for this record in a program 
written in Assembler/IOCS language. Nor do 
you specify a DTFPK file definition state- 
ment for the record. Instead, you must 
issue an IQIPT macro instruction to deter- 
mine the location of the input area in the 
Monitor. The IQIPT macro instruction loads 
the address of the input area INQIPT into 
register 8, refer to the IQIPT Macro 
Instruction ) You can then access the 
inquiry record contained in that area. The 
length of the inquiry record is limited to 
the length of the input area INQIPT. If 
you want to process additional printer- 
keyboard files in an inquiry program, you 
must define those files with a DTFPK file 
definition statement and must issue the 
necessary imperative macro instructions as 
described in the section Instructions for 
Processin g Printer-Keyboard F i les, . 

The advantage of submitting data as an 
inquiry record is that no printer-keyboard 
IOCS is required and that the processing of 
the mainline program continues while the 
operator enters the data. 
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Monitor I/O Areas 



FILE PROTECTION 



If the INQIPT option is used, the Monitor 
must contain an input area to accommodate 
the inquiry record in main storage and make 
it available to the inquiry program. The 
output area for printer-keyboard records in 
an inquiry program may be located in the 
problem program itself, or in an area 
immediately following the Monitor in main 
storage. The latter area (INQOPT) is allo- 
cated at the time the Monitor is generated. 
(Refer to the SRL publication IBM 
System/360 Model 20, Disk Programming Sys- 
tem^ System Generation and Maintenance , 
Form C33-6006). 



For disk files, special routines generated 
for the OPEN and CLOSE macro instructions 
provide for protection of files. These 
routines are only included in the Open and 
Close routines of programs that are 
assembled vjith a DTFBG statement and the 
operands MAINPRG=YES and/or INQPRG=YES. If 
a program can be run as either a mainline 
program or an inquiry program, the 
Open/Close routines for disk files are 
prepared/changed at object time to process 
disk files according to the requirements of 
a mainline or inquiry program. 



The Monitor output area for the printer- 
keyboard is of advantage only in a Model 
20, Submodel 5, By specifying an output 
area outside the problem program, it is 
possible to overlap the printing of the 
last output record on the printer-keyboard 
with the roll- in and processing of the 
mainline program. Note that overlapping is 
achieved only if no part of the printer- 
keyboard output area is overlaid by the 
inquiry program or the interrupted mainline 
program. Both should be loaded above this 
area. 

In a Model 20 system that has no overlap 
feature a printer-keyboard output area 
located outside the problem program is not 
advantageous. In this environment, fewer 
bytes of main storage are required if each 
inquiry program contains its own printer- 
keyboard output area, and if the mainline 
programs are loaded immediately behind the 
Monitor. 



Opening Disk Files 

When disk files are opened in an inquiry 
program 

• all OPEN macro instructions for disk 

files must be given together (preferably 
at the beginning) in an inquiry program, 
and 

« all OPEN macro instructions for disk 
input files must be given before the 
OPEN macro instructions for disk output 
files. 



Error in Inquiry Program 

If an irrecoverable error occurs in an 
inquiry program, the mainline program may 
be re-entered by transferring control to 
EOJ. This is accomplished by entering (on 
the CPU console) the main-storage address 
X'00C2' into register 3. 



The protection for disk files during 
inquiries is also provided for by RPG. A 
mainline program written in Assembler/IOCS 
language can be interrupted by an inquiry 
program written in RPG, and vice versa. 

No protection is provided for card and 
magnetic tape files. Therefore, you must 
carefully evaluate the use of card and 
magnetic tape files in an inquiry program 
if the same files are being processed in 
the interrupted mainline program. If 
standard labels are used for magnetic tape 
files, you cannot process these files in an 
inquiry program. 



Mainline Open and Close Routines 

If a program is run as a mainline program 
that is to permit interrupts by inquiry 
programs, the Open and Close routines for 
all disk input and output files are expand- 
ed to perform the following functions: 

1. Open routines: 

a. postpone any interruptions (of the 
mainline prograir) initiated by 
inquiry requests until the end of 
the Open routines has been reached, 
i.e., until the label processing 
performed by the Open routines is 
completed. 

b. move the file-protection switches 
from the DTF block of the disk file 
being opened to the format-1 label. 



File protection switches are initially 
set in the DTF blocks for all disk files 
defined in a program assembled with 
f''lAINPRG=YES in the DTFBG statement. These 
switches are moved to the format-1 label to 
indicate the status of the file being proc- 
essed in a mainline program. Whether the 
file can be accessed by an inquiry program 
that interrupts mainline processing, 
depends on the conditions shown in Figure 
27. 
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2. Close routines: 

a. prevent any mainline- program inter- 
ruption (initiated by an inquiry 
request) during execution of the 
Close routines, i.e., during label 
processing. 

b. turn off the file-protection 
switches in the format- 1 label to 
indicate that the mainline program 
has finished processing the file. 



Note; A mainline program that opens a disk 
file must also close it in order to turn 
off the protection switches, i.e., to 
ensure that it is not protected from access 
by later inquiry programs. If disk files 
opened in a mainline program have not been 
closed (i.e., an error halt occurred and 
the mainline program was discontinued) , you 
should prepare a dummy mainline program 
which opens and closes the affected disk 
files. 

Inquiry Open Routines 

If a program is executed as an inquiry 
program, the Open routines for all disk 
input and output files are expanded to 
perform the following functions: 



1. Open routines: 



a. test the file protection switches 
in the format- 1 label. 

If these switches indicate that the 
file is being processed by a main- 
line program, the inquiry program 
may still access the file. Howev- 
er, if the inquiry program speci- 
fies operations (e.g., UPDATE, ADD, 
or LOAD) that may conflict with the 
operations being performed on the 
same file in the mainline program, 
the inquiry program is discontinued 
and processing of the mainline 
program is resumed. 

The conditions under which a file 
being processed in a mainline pro- 
gram is protected are shown in 
Figure 27. 

b, check the extent limits of output 
files being opened against the 
extent limits of all disk files 
processed by the interrupted main- 
line program. If extent overlay is 
detected, the inquiry program is 
discontinued and processing of the 
mainline program is resumed. 
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Inquiry-Mainline Program - Same File 



Indexed-Sequential Files 



f- 



Inquiry Program 

T 



Mainline Program] IOROUT= LOAD 



-+- 



IOROUT=ADD/ADDRTR 
without UPDATE 



IOROUT=RETRVE 
with UPDATE 



IOROUT=ADDRTR 
with UPDATE 



IOROUT=RETRVE 
without UPDATE 



IOROUT=LOAD 



IOROUT=ADD/ 
ADDRTR 
without UPDATE 



IOROUT=RETRVE 
with UPDATE 



A 



IOROUT=ADDRTR 

with UPDATE 



IOROUT=RETRVE 
without UPDATE 



Sequential Disk or Direct-Access Files 



l-- 



Inquiry Program 



Mainline Program J TYPEFLE=OUTPUT 



+- 

TYPEFLE=OUTPUT | 



fTYPEFLE= UPDATE 
•+ 



1TYPEFLE= INPUT 
'+ 



1 

TYPEFLE=UPDATE ] P 
-I 

TYPEFLE= INPUT | P 

-X 



P - The file that is being processed in the mainline progi;am is protected from being 

accessed in the inquiry program. 
A - Inquiries are allowed . 



Figure 27. Protection of Files During Inquiry Operations 
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The ATENT Routine 



If a printer-keyboard is attached to your 
system,, you can request an interrupt that 
allows you,, by means of an ATENT routine, 
to modify the main routine., set indicators 
and switches, and retrieve information 
from., or supply information to,, the main 
routine. You interrupt the program phase 
that is currently executed by pressing the 
Request key on the printer- keyboard. Con- 
trol is then transferred to your ATENT 
routine whose entry point is provided by 
the ATENT macro instruction. You must 
issue an ATENT macro instruction as the 
first and a RETRN macro instruction as the 
last statement in your ATENT routine. 



All files used by the ATENT routine must 
be defined together with the other files at 
the beginning of the program. When using 
IOCS imperative macro instructions in the 
ATENT routine you must observe the follow- 
ing restriction: You are not allowed to use 
macro instructions pertaining to a device 
for which macro instructions have already 
been issued in the main routine. For 
instance, if the main routine contains card 
routines, you must not issue card macro 
instructions in the ATENT routine. The 
same rule applies to the printer, magnetic 
tape and disk. An exception is the 
printer-keyboard. If you have printer- 
keyboard output macro instructions in the 
main routine, you may issue macro 
instructions for printer-keyboard input in 
the ATENT routine; and vice versa. 



If you include an ATENT routine in your 
program, you can execute the program only 
as a mainline program that does not allow 
inquiry interrupts, i.e.., you must specify 
ATENT=YES in the DTFBG Statement. 



Note that the registers are saved and 
restored by the ATENT and RETRN macro 
instructions. However,, the contents of the 
registers are not known at the time the 
interrupt occurs . 



ATENT MACRO INSTRUCTION 

The ATENT macro instr;uction has the follow- 
ing format: 

r — ■ T T 1 

I Name | Operation] Operand [ 

j. 1_ _ 1 ., ^ 

1 [name] | ATENT | j 

L X X J 



The operand field must be blank. 
ATENT in the operation field. 



Enter 



The ATENT macro instruction must precede 
your ATENT routine to which it p3;ovides the 
entry point. The ATENT macro instruction 
exchanges PSW addresses and saves all reg- 
isters. You can issue the ATENT macro 
instruction only in a mainline pi;ogram that 
does not allow inquiry interrupts. There- 
fore, you must specify ATENT=YES in the 
DTFBG statement (see DTFBG statement under 
the section Begin and End Definitions. ) 



RETRN MACRO INSTRUCTION 

The RETRN macro instruction has the follow- 
ing format: 

r ""T T ' 1 

I Name | Operation | Operand | 

I 1 1 ^ 

j [name] | RETRN | | 

L X X J 



The operand ;Eield must be blank, 
RETRN in the operation field. 



Enter 



Issue the RETRN macro instruction as the 
last statement in your ATENT routine. The 
RETRN macro instruction returns control to 
the point of invocation after restoring all 
registers and the PSW address. When you 
use the RETRN macro instruction you must 
specify ATEISIT=YES in the DTFBG statement to 
indicate that the program is to be run as a 
mainline program that does not allow 
inquiry interrupts. 
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Control Statements 



Depending upon the types of files to be 
processed, you may have to supply control 
statements that provide information to the 
IOCS. Control statements will be read by 
the Job Control program before the object 
program is loaded. These statements pro- 
vide the IOCS with information that is 
necessary to (1) check the label (s) of an 
input file, (2) create the label (s) for an 
output file, or (3) define the limits of 
the disk storage area(s) for a disk file. 



Two control statements must be supplied 
for each labeled tape file. At least three 
control statements must be supplied for 
each disk file (a minimum of four for 
indexed-sequential files). The types of 
control statements are: 



Volume Control Statement. This statement 
specifies the symbolic unit to be used and 
the name of the file. 



Tape Label Control Statement. This state- 
ment provides information for checking 
and/or creating tape laJaels for a file. 



Disk Label Control Statement. This state- 
ment provides information for checking 
and/or creating disk labels for a file. 

Extent Control Statement. This statement 
provides information about the disk extents 
to be used and specifies the symbolic unit 
to be used. You must provide one statement 
for each extent. 

Each magnetic tape or disk file requires 
one Volume control statement and ■ one Tape 
(Disk) Label control statement. Extent 
control statements axe required for disk 
files only. The format and contents of 
each of these control statements are des- 
cribed in the SRL publication IBM 
System/360 JModel 20, Disk Programming Sys- 
tem, Control and Service Programs ,, Form 
C24-9006. 
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Device Error Recovery 



The IOCS provides an error recovery "routine 
for each I/O device. The actions taken 
when an error occurs are described below. 

Card, Printer, and Printer-Keyboard 
Equipment Errors 

When errors,, such as feed checks,, occur on 
card, printer, and printer-keyboard equip- 
ment, the IOCS stops the execution of the 
program to allow the machine operator to 
take corrective action. An error indica- 
tion is displayed on the console to iden- 
tify the type of error and to indicate' the 
required operator action. 

Tape Error Routines 

If a tape read error occurs, the physical 
IOCS (PIOCS) routines cause the tape to be 
backspaced and reread 100 times before the 
block is considered to be incorrect. If an 
error cannot be corrected, the PIOCS rou- 
tines indicate this fact either to the IOCS 
or to the operator depending on the speci- 
fications in, or omission of, the ERROPT 
detail entry. (Refer to the description of 
the detail entries ERROPT and ERRIO) . 
Indication to the operator is made by a 
display of an error code on the CPU con- 



sole. This display indicates the type of 
error and the associated device address. 

If a tape write error occurs, the error 
tape is backspaced to the beginning of the 
block, a gap is skipped,, and the block is 
rewritten. If necessary, this procedure is 
repeated by backspacing to end of last gap, 
skipping another gap,, and writing. The 
block is rewritten 9 times before a tape 
write error is indicated. 

Disk Error Routines 

When a disk read or write error occurs, the 
IOCS rereads or rewrites the block a stand- 
ard number of. times before the block is 
considered as incorrect. If a read or 
write error cannot be corrected by the 
error routines, this is indicated to the 
problem program. Refer to the ERROPT, 
ERRBYTE,., ERRINF., ERRIO, and DERREX entries 
in the appropriate file definition state- 
ment. 

Note. Normally, the records are checked 
after they have been written. However, if 
VERIFy=NO is specified in the definition 
statement for a particular file, checking 
is omitted. 
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Language Compatibility 



The DPS IOCS for the SysteiTi/36 Model 20 is 
closely patterned after the Basic Program- 
ming Support IOCS and the Basic Operating 
System IOCS. Because the DPS IOCS is 
designed to support card, printer, printer- 
keyboard,, magnetic tape and disk I/O 
devices that are unique to the Model 2 and 
in order to achieve optimum performance of 
all devices, some macro instructions and 
file definition entries are not identical 
to those of the other systems. Therefore,, 
if you anticipate transition from Model 20 



to other models of System/360, you should 
be aware that programs using the DPS IOCS 
require some modification before they can 
be processed by the other System/360 Assem- 
blers. 

All tape data sets created under control 
of the DPS IOCS are fully upward compat- 
ible. Disk data sets that have been creat- 
ed on the IBM 2311, Model 11 and 12, cannot 
be processed on the IBM 2311, Model 1, and 
vice versa. 
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Appendix A. Summary of File Definition Statements 



The tables in Figures 28 through 36 show all of the file definition statements and the 
detail entries available. 

The tables are in the same order as the discussions of the file definition statements: 

DTFBG - Figure 2 8; DTFEN - Figure 2 9; DTFSR - Figure 30; DTFPK - Figure 31; 
DTFLC - Figure 32; DTFMT - Figure 33; DTFSD - Figure 34; DTFDA - Figure 35; 
DTFIS - Figure 36. 

r T T T 

I I Operand | | 

I |. ^ . ^ I 

I Operation I Keyword I Allowable | Remarks | 

I I I Specification I | 

|. 1 ^ 1 ^ 

I DTFBG I I I Applies to all file types. | 

^ 1 1 1 _ ^ 

I lATENT I YES | Required if program includes ATENT routine. | 

I ^ + 1 ^ 

I I INQPRG I YES I Required for inquiry programs. | 

I ^ 1 1 _ ^ 

I |MAINPRG| YES | Required if program is executed as mainline program | 

I I I I that permits interrupts by inquiry requests. | 

L X X . X -. J 

•Figure 28. DTFBG Statement and Associated Detail Entries 

r T T ■ '1 

I I Operand | | 

I ^ ^ ^ I 

I Operation] Keyword [Allowable ] Remarks | 

I 1 I Specification] j 

1. 1 1 1 _ ^ 

] DTFEN ] ] ] Mandatory for all files. J 

|. ^ ^ ^ _ ^ 

] ] OVLAY 1 ] Required if overlay of Open and Close routines for ] 

1 I I I magnetic tape and disk files is desired. | 

L X X , X J 

•Figure 29. DTFEN Statement and Associated Detail Entry 
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Operand 



Applies to 



T T 

2520 
Card 
Read- 
Punch 



Oper- 
ation 



+- 



Keyword 



+- 



Allowable 
Specification 



2560 



+- 



2520 

Card 
Punch 



+- 



1442 
Mod. 5 
Punch 



+- 



2501 



2203 



+- 



1403 



Remarks 



+- 



DTFSR 



M 



M 



M 



Always first card, 
may include detail 
entries from 
column 16 to 
column 71. 



+- 



BINARY 



YES 



0* 



+ 



+0nly for 
simple files, 



INPUT 



Only for com- 
bined files. 



+- 



BLKSIZE 



length of sim- 
ple file I/O 
area in bytes 



Indicates length 
of area specified 
by I0ARZA1 and 
I0AREA2 entries. 



+■ 



+- 



CONTROL 



YES 



Required if 
CNTRL is issued 
for a file. 



+- 



+- 



CRDPRA 



name of 

card-print 

area 



+■ 



CRDPRLn 



length of card- 
print area in 
bytes 



•+" 



n in the key- 
word is a print 
head number. 



■H 



DEVICE 



MFCM1 



+- 



-i 



M* 



MFCiyi2 
CRP2 



PUNCH20 
PUNCH42 



READ01 
PRINTER 



PRINTLF 
PRINTUF 



M* 



f 



Mandatory detail 
entry for card 
and printer files. 



*One of the 
possible specifica- 
tions must be 
entered. 



EOFADDR 



name of 
end-of-f ile 
routine 



M+ 



M+ 



♦Only for input 
and combined 
files. 



INAREA 



■+- 



name 

of combined 
file input area 



M* 



M+ 



♦Combined files 
only. 



|M = Mandatory 

L 



= Optional 



Figure 30. Summary of the DTFSR Statement and the Associated Detail Entries, Part 1 of 3 
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Operand 



Applies to 



T 'J 

2520 
Card 
Read- 
Punch 



Oper- 
ation 



4 



Keyword 



Allowable 
Specification 



2560 



■+- 



■+- 



•+- 



2520 
Card 
Punch 



4- 



1442 
Mod. 5 
Punch 



2501 



2203 



1403 



Remarks 



+- 



DTFSR 



INBLKSZ 



4 



length of 
combined file 
input area in 
bytes 



M* 



M* 



♦Combined files 
only 



+- 



I0AREA1 



name of first 
I/O area 



0* 



♦Entry required 
for 2203 only 
when dual-feed 
carriage is 
used. 



I0AREA2 



name of second 
I/O area 



Can be used if 
2501, Model A2, 
is used in 
overlap mode. 



OUAREA 



name of 
combined file 
output area 



■M* 



M* 



♦Combined 
files only, 



4- 



-^ 



OUBLKSZ 



OVERLAP 



4- 



length of 
combined file 
output area in 
bytes 



M* 



M* 



♦Combined files 
only. 



NO 



+- 



+ + 





I + 



If omitted, file 
is processed in 
overlap mode. 



PFORMTn 



xxyy 



PFXIT 



name of routine 
used when 
PFORMTn 
test fails 



+- 



I 1 



+- 



Indicates that 
the field is 
to be checked 
for blanks 
from columns xx 
to yy prior to 
punching. 



4- 



+- 



+ + 



■H 



PRINTOV 



YES 



Required if 
PRTOV is issued 
for file. 



4- 



+ + 





I + 

10 



+■ 



RFORMTn 



xxyyz 



[. i X J. X. 

|M = Mandatory = Optional 

L 



-X X. 



Indicates that 
input cards are 
to be checked 
for numerics 
or blanks from 
columns xx to yy 



Figure 30. Summary of the DTFSR Statement and the Associated Detail Entries, Part 2 of 3 
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Operand 



Applies to 



T T 

2520 

Card 
Read- 
Punch 



Oper- 
ation 



I Allowable 
Keyword j Specification 



2560 



1 

RFXIT I name of routine 
I used when 
I RFORMTn 
jtest fails 

1__ 



+- 



2520 
Card 
Punch 



+- 



1442 

Mod. 5 
Punch 



2501 



■+■ 



2203 



1403 



Remarks 



+- 



+- 



DTFSR 







SEQNCE Jxxyy 
I 



1 

SEQXIT I name of routine 
I used when 
1 SEQNCE test 
I fails 



I- 



+- 



Indicates se- 
quence check of 
input cards de- 
sired from col. 
XX to yy. 



Must be speci- 
fied when SEQNCE 
is specified. 



■+- 



+- 



TYPEFLE|INPUT 

F 

I OUTPUT 
j. 

I CMBND 
1 

WORKA 1 YES 



M* 



M* 



1— 

M 






M 
I 



i + -) 



♦One of the three 
specifications must 
be entered. 



M 



M 



M 



M 



M 



Mandatory for 
all card and 
printer files. 



I- -^ -^- 

|M = Mandatory 

L 



= Optional 



Figure 30. Summary of the DTFSR Statement and the Associated Detail Entries, Part 3 of 3 
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Name 



+- 



Operation 



+- 



Keyword 



+- 



+- 



Operand 

Allowable 
Specification 



Remarks 



Filename 



DTFPK 



+- 



+ ■ 



Applies to printer-keyboard files 
only. 



BLKSIZE 



Length of largest 

record: 

Input 2 to 511 

Output - 1 to 511 



Mandatory for input and output files, 
Must be large enough to accominodate 
rnaximuni-size record. If line;-counter 
table is used for an output file, 
length must not exceed 12 5. 



CONTROL 



+- 



YES 



+- 



Optional for output files. Required 
if CNTRL macro instruction is issued 
for the file. 



EOFADDR 



+- 



Name of end-of-file 
routine 



Mandatory for input files. Name of 
your routine to which control is 
given when end-of-file indicator /* 
is entered (detected by WAITF macro) 



lOAREA 



Name of I/O area 

in the problem program 



Name of your I/O area. If omitted 
for output file, output area of Moni- 
tor is used. Must be as large as 
BLKSIZE. 



LCTABLE 



YES 



+- 



PRINTOV 



+- 



YES 



+ ■ 



Optional for output files. Required 
if output control by skipping is 
desired. If used, line-counter tabl« 
must be defined by a DTFLC. 



1 

RECSIZE 



Optional for output files. Required 
if PRTOV macro instruction is issued 
for the file. If used, line-counter 
table must be defined by a DTFLC. 



Register (8-13) or 
symbolic name of a 
register (in paren- 
theses) 



+- 



In the specified register, provide 
the number of characters to be 
printed in the next record. 



TYPEFLE 



+- 



INPUT or OUTPUT 



4- 



Designates that this DTFPK is for an 
input or an output file on the 
printer- keyboard. 



WORKA 



YES 



I- 



Mandatory for output files. Length 
equal to BLKSIZE. If entry omitted a 
warning is given. 



•Figure 31. Summary of the DTFPK Statement and the Associated Detail Entries 



r T T 

I Name J Operation] Operand 

). 1 1 

DTFLC I Formsize,El,E2, . . . ,E4! 



Remarks 



I This statement is required to define 
I a line-counter table for simulating 
I carriage control. The entries rep- 
I resent the length of the form, and 
I channels associated with particular 
I lines. It may be omitted if no skip- 
I ping is used for the output file. 



Figure 32. Summary of DTFLC Statement 
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Operation 



h 



Operand 



•+- 



Keyword 



Allowable 
Specification 



Remarks 



DTFMT 



Applies to magnetic tape files only. 



ALTTAPE 



SYSIPT 
SYSOPT 
SYSnnn 



Required for multi-volume files using 
2 tape drives. 



-^ 



BLKSIZE 



length of file 
I/O area 
in bytes 



Mandatory for all magnetic tape files. 
Indicates length of area specified by 
the I0AREA1 entry. 



CKPTREC 



YES 



Required to read tapes containing interspersed 
checkpoint records. 



■H 



CONTROL 



YES 



Required if a CNTRL macro is issued for the file, 



DEVADDR 



SYSPT 

SYSOPT 

SYSnnn 



Mandatory for all magnetic tape files. 
SYSIPT, SYSOPT, or SYSnnn are the symbolic 
addresses to be used when processing a 
magnetic tape file. 



-— 1 



EOFADDR 



name of 
end-of-f ile 
routine 



Mandatory for input files only. 
Not used for output files. 



ERR 10 



name of user- 
defined 2-byte 
area 



Use only if ERROPT=name and/or WLRERR=name and 
two I/O areas specified. 



ERROPT 



IGNORE 



Ignored. 



SKIP 



Error block skipped. 



name of error 
routine 



Return to IOCS via register 14. 



FILABL 



STD 

NSTD 

NO 



Standard labels. 



Non-standard labels. 



No labels. 



-^ 



Figure 33. Summary of the DTFMT Statement and the Associated Detail Entries, 
Part 1 of 2 
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Operation 



F- 



Keyword 



Operand 



f- 



Allowable 
Specification 



Remarks 



DTFMT 



I0AREA1 



name of user- 
defined area 



Mandatory for all magnetic tape files. 



I0AREA2 



name of user- 
defined area 



f 

r lOREG 



Requires lOREG or WORKA entry. 
Optional. 



register number 
from 8 to 13 
or symbolic 
name of 

register (both 
in parentheses'! 



+■ 



Required when blocked records are processed 

in the I/O area. 

Required if lOAREAR but not work area 

specified. 



LABADDR 



name of user 
routine 



+- 



Return to main routine by issuing a 
LBRET macro. 



READ 



FORWARD 



BACK 



If omitted, IOCS assumes forward 
reading. 



RECFORM 



FIXUNB 
FIXBLK 
VARUNB 
VARBLK 
UNDEF 



Entry may be omitted if record format is 
fixed unblocked. 



RECSIZE 



number of bytes 
in one record 
or number of 
register indi- 
cating record 
length in num- 
ber of bytes or 
symbolic name 
of registe'r 



+- 



Required if fixed length blocked or undefined 
record format is specified (number of bytes in 
one record) . 



REWIND 



UNLOAD 



4- 



NORWD 



If omitted, the tape is rewound but not 
unloaded on OPEN or CLOSE, end-of-volume, or 
end-of-file condition. 



•H 



TPMARK 



NO 



Optional. Applies to unlabeled tape output files. 



:ypefle 



INPUT 



OUTPUT 



Mandatory for all magnetic tape files. 



VARBLD 



number or 
symbolic name 
of register (in 
parentheses) 
indicating 
available bytes 



+- 



Required if variable-length blocked records 
are built in the output area. 



WLRERR 



name of user 
routine 



WORKA 



YES 



Required for blocked records, or if ICAREA2 
without lOREG specified. 



Figure 33. 



Summary of the DTFMT Statement and the Associated Detail Entries, 
Part 2 of 2 
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Operation 



Keyword 



Operand 

Allowable 
Specification 



Remarks 



DTFSD 



Applies to sequential disk files only. 



BLKSIZE 



length of block 



Mandatory entry. Indicates length of 
one block of records. Length must be an 
integer multiple of RECSIZE. 



COMROUT 



YES 



One common routine generated for all 
input files for which entry is 
specified. Same holds analogously for 
update and output files. 



CONTROL 



YES 



Required if a CNTRL macro instruction 
is issued for the file. 



DEVICE 



DISK11E 



Specifies IBM 2311, Model 11 or 12. 
Warning issued in case of error. 



DSKXTNT 



maximum number of 
extents in any one 
volume for the file 



If omitted, the IOCS assumes 
three extents for the file. 
Maximum is 99. 



•H 



DTAREX 



name of 
user's routine 



Optional entry for output files. 

If not specified, job is discontinued. 



EOFADDR 



name of user's 
end-of-file routine 



Mandatory for input files only. 
Not required for output files. 



ERR 10 



name of user-defined 
2-byte area 



Use only if ERROPT=name and two 
I/O areas specified. 



ERROPT 



SKIP 

name of error routine 



Error block is to be skipped. 



Return to program via register 1U, 



I0AREA1 



name of a 
user-defined area 



Mandatory for all disk files. 
Length of area must be 270 bytes 
or integer multiple thereof. Equal 
or greater than BLKSIZE. 



I0AREA2 



name of user- 
defined area 



Requires lOREG or WORKA entry. 
Optional. Length must be 27 or integer 
multiple thereof. 



lOREG 



number or symbolic 
name of a register 
(in parentheses) 



Required when blocked records 
are processed in the I/O area. 
Required if I0AREA2 but no WORKA 
specified. 



RECFORM 



I- 



FIXUNB 
FIXBLK 



If not specified, FIXUNB is assumed. 



■H 



RECSIZE 



number of bytes in one 
record 



Mandatory only for files containing 
blocked records. If not specified for 
unblocked records, RECSIZE=ELKSIZE. 
Maximum record size is 4 09 6 bytes. 



Figure 34. Summary of DTFSD Statement and the Associated Detail Entries, 
Part 1 of 2 
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Operation 



Keyword 



Operand 

Allowable 
Specification 



Remarks 



—I 



DTFSD 



TYPEFLE 



INPUT 



OUTPUT 



Mandatory for all disk files, 



UPDATE 



YES 



Required if records are to be updated. 



VERIFY 



NO 



Required if write checking not desired. 



WORKA 



YES 



Required if a record is to be 
processed in a work area. Required if 
I0AREA2 but no lOREG specified. 



Figure 34. Sumimary of the DTFSD Statement and the Associated Detail Entries, 
Part 2 of 2 
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Operation 



Keyword 



Operand 

Allowable 
Specification 



Remarks 



DTFDA 



Applies to direct-access disk files 
only. 



ADRTEST 



NO 



Address is not checked for validity 
nor against extent limits specified 
in XTENT statement. 



BLKSIZE 



length of I/O 
area 



Mandatory detail entry. Indicates 
length of one block. Maximum block 
size is 16,200 bytes. 



CONTROL 



YES 



Required if a CNTRL macro 
instruction is issued for the 
file. 



DEVICE 



DISK11F 



Specifies IBM 2311, 
Model 11 or 12. Warning 
issued in case of error. 



DSKXTNT 



maximum number of 
extents in any one 
volume for the file, 



If omitted, the IOCS assumes 
three extents for the file. 



ERRBYTE 



name of a 
user-defined area 



Mandatory detail entry. The IOCS will 
make error indications available in 
these bytes. 



I0AREA1 



name of a 
user-defined area 



Mandatory detail entry. Length of area 
must be 270 bytes or integer 
multiple thereof. 



READID 



YES 



Required if problem program 
uses READ. 



SEEKADR 



name of a user- 
defined area 



Mandatory detail entry. The IOCS 
obtains address of desired disk 
location from this area. 



TYPEFLE 



INPUT 



OUTPUT 



Mandatory for all direct-access files, 
Standard labels are checked. 



VERIFY 



NO 



Required if write-checking 
is not desired. 



WRITE ID 



YES 



Required if problem program 
uses WRITE. 



Figure 35. Summary of the DTFDA Statement and the Associated Detail Entries 
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•Figure 36. Summary of the DTFIS Statement and the Associated Detail Entries, Part 1 of 3 
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I Operand 

h T— - 



Type of Processing 



Opera- 
tion 



Keyword 



Allowable 
Specifications 



Load 

and 

Extend 



Retrieve 



Add-Retrieve 



Add 



Sequen- 
tial 



Ran- 
dom 



Randoiti- 
Sequen^ 
tial 



Sequen- 
tial 



Ran- 
dom 



Random- 
Sequen- 
tial 



Remarks 



DTFIS 



lOAREAL 



name of 
output area 



M 



M 



Length of area 
must be 270 bytes 
or integer mult- 
iple thereof. 



lOAREAR 



name of I/O 
area 



Length of area 
must be 270 bytes 
or integer mult- 
iple thereof. 



lOAREAS 



name of I/O 
area 



Length of area 
must be 27 bytes 
or integer mult- 
iple thereof. 



I + 



+ + 

o 



+ — + 

o 



lOREG 



-+- 



number of any 
register from 
8 to 13 in 
parentheses 
or symbolic 
name equated 
to register 



Required for 
processing 
blocked records 
in the I/O area. 



lOROUT 



LOAD 



ADD 



RETRVE 



ADDRTR 



KEY ARC 



name of 

user-defined 

area 



IOCS obtains 
key of desired 
record from this 
area. 



+- 



I + 



+ + 

M 



I + 



KEYLEN 



number of 

bytes 

in the key 



Waximuir length is 
60 bytes. 



+ + 

M 



+ + 

M 



+ + 

M 



KEYLOC 



high-order 
position of 
key field 



+ + 

M 



+ + 

M 



First byte of 
record is counted 
as fcyte 1. 



+ + 



NRECDS 



number of 
records in one 
block 



For unblocked 
records, use a 1. 



-+- 



RECFORM 



FIXUNB 



FIXBLK 



Specification 
of RECFORM is 
com.pulsory . 
Only one of the 
operands is per- 
mitted at a time. 



h ^ •«" 

|M = Mandatory 



O = Optional 



Figure 36. Suinniary of the DTFIS Statement and the Associated Detail Entries, Part 2 of 3 
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Operand 



Type of Processing 



Opera- 
tion 



Keyword 



Allowable 
Specifications 



T T 

I Retrieve 



Load 

and 

Extend 



Add-Retrieve 



Add 



Sequen- 
tial 



Ran- 
dom 



Random- 
Sequen- 
tial 



Sequen- 
tial 



Ran- 
dom 



Random- 
Sequen- 
tial 



Remarks 



DTFIS 



RECSIZE 



length of one 
record in 
bytes 



M 



M 



M 



RTRVEX 



name of 
routine 



Used when desired 
record is not 
found. 



SQCHEX 



name of 
routine 



+ + 



+ + 

M 
+- 

-+- 



Used when a 
record is out of 
sequence. 



TYPEFLE 






RANDOM 
SEQNTL 
RANSEQ 



M 






+ 



+ 



f- 



Indicates type of 
^ retrieval. lOROUT 

specifies RETRVE 
■lor ADDRTR. 



UPDATE 



RANDOM 
SEQNTL 



Indicates type of 
■I updating. 



RANSEQ 
NO 



VERIFY 



Required if write 
checking is not 
desired. 



WORKA 



name of 

of work area 



Required if FIXBLK 
is specified. 
Must precede the 
area specified 
by lOAREAL. 



WORKL 



name of 

a work area 



■+- 



WORKR 



name of 

a work area 



O 



O 



■+ +- 

1 I 
.X JL. 



-+ +- 

I I 
.1 1. 



-+ +- 

I I 
.X i. 



i WORKS JYES 
-i J. 



|M = Mandatory 

L 



O = Optional 



Figure 36. Suinniary of the DTFIS Statement and the Associated Detail Entries, Part 3 of 3 
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Appendix B. Summary of Imperative Macro Instructions 



The table in Figure 37 shows all IOCS macro instructions, including the possible oper- 
ands, that are available. 

The table in Figure 3 8 shows all imperative macro instructions used in conjunction 
with indexed-sequential files. Each macro instruction is marked with (M) and (0) to 
indicate whether it is mandatory or optional for the various types of file processing. 



Operation 



Operand 



Remarks 



CLOSE 



filel ,file2, ...,file16 



Up to 16 files may be closed with one 
CLOSE macro instruction. 



CNTRL 



filename, BSF 



Backspace file. 



filename, BSR 



Backspace record. 



filename, ERG 



Erase gap. 



filename, FSF 
filename, FSR 



Forward space file. 



Forward space record. 



filename, REW 



Rewind tape. 



filename, RUN 



Rewind and unload tape. 



filename, SEEK 



Search for specified disk location. 



filename, SK,n,m 
(n = 1,2, . .., or 12) 
(m = 1,2,..., or 12) 



n causes immediate skip to the specified 

channel. 

m causes skip to specified channel after 

printing. 



■H 



■H 



filename, SP,n,m 
(n = 0,1,2, or 3) 
(m = 0,1,2, or 3) 



n causes the specified number of lines 
to be spaced immediately, 
m causes the specified number of lines to 
be spaced after printing. 



filename, SS,n 
(n = stacker number) 



Select stacker of a multi-stacker 
I/O device. 



■H 



CNVRT 



seekf ield,packedf ield 



Converts pacJced decimal address 
into format of seek field used 
in direct access. 



CRDPR 



, workarea , printar ea 



Card print. DTFSR statement must include 
CRDPRA arid CRDPRLn detail entries. 



ENDFL 



filename 



End loading or extending of an 
indexed-sequential file. 



Figure 37. Summary of Imperative Macro Instructions, Part 1 of 3 
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Operation 



EOM 



Operand 



filename 



Remarks 

Enter overlap mode. 

Applies to combined files for which a 

previous LOM has been given. 



•H 



ESETL 



filename 



End sequential processing of an indexed- 
sequential file. 



FEOV 



filename 



Force end of volume. 

Applies to multi-volume tape files, 



GET 



filename, workarea 



The second operand, including the comma 
preceding it, must be omitted if no 
work area has been specified. 



■H 



LBRET 



(n = 1 or 2) 



Label return. Required for return to the 
IOCS from LABADDR routines. 



LOM 



filename 



Leave overlap mode. 

Applies to combined files for which 

overlap mode has been specified. 



OPEN 



file1,file2, .. . ,file16 



Up to 16 files may be opened with 
one OPEN macro instruction. (However, 
only one printer-keyboard input and one 
printer-keyboard output file can be 
specified in a single program.) 



PRTOV 



filename, n , address 
(n = 9 or 12) 



Branch on print overflow, 
n specifies the channel indicator to be 
tested. An automatic skip to channel 1 
occurs if the last operand (address 
of user routine) is omitted. 



._i| 



PUT 



filename, workarea 



The second operand, including the comma 
preceding it, must be omitted if no 
work area has been specified. 



READ 



filename 



Applies to printer-keyboard files only. 



filename, ID 



Applies to direct-access files only, 



filename, KEY 



Applies to indexed-sequential files 
only. 



RELSE 



filename 



Release current block of tape 
input file. 



■H 



SETFL 



filename 



Prepare for loading or extending an 
indexed-sequential file. 



Figure 37. Summary of Imperative Macro Instructions, Part 2 of 3 



Appendix B: Summary of Imperative Macro Instructions 123 



Operation 



SETL 



Operand 



filename, BOF 



filename, KEY 



filename, GKEY 



Remarks 

Prepare for sequential processing 

of an indexed-sequential file beginning 

with the first record. 



Prepare for sequential processing of 

an indexed-sequential file beginning with 

the record having the specified key. 



Prepare for sequential processing of 
an indexed-sequential file beginning 
with the record whose key is equal 
to or greater than the specified key. 



TRUNC 



filename 



Truncate current block of tape output 
file. 



WAITC 



Wait for the completion of pending card 
and printer I/O operations. 



WAITF 



filename 



Wait for a printer-keyboard input opera- 
tion or a disk operation to end. 



WRITE 



filename, ID 



filename, KEY 
filename, NEWKEY 



Applies to direct-access files only. 



Replace a record retrieved from an 
indexed-sequential file. 



Place a new record ixito an indexed- 
sequential file. 



.-J 



Figure 37. Summary of Imperative Macro Instructions, Part 3 of 3 
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Indexed-Sequential Processing Macros 



•H 



Operation j Operand 



Type of Processing 



Remarks 



CLOSE 



Load JAdd 
1 



filename 1 / 
f ilenamen 



Retrieve 



T T 

SEQNTL I RANDOM j RANSEQ 
1 +___ 

. M I M I M 



+- 



+- 



Add-Retrieve 



T T 

SEQNTL I RANDOM | RANSEQ 



max. of 16 
operands 



same name 
as in SETFL 



ENDFL 



filename 



ESETL 



filename 



same name 
as in SETL 



■+- 



GET 



filename 



f ilen,workn 



+- 



OPEN 



f ilenamel , 
f ilenamen 



max. of 15 
operands 



PUT 



filename 
f ilen,workn 



+ + 



READ 



filen,KEY 



M 



SETFL 



filename 



+- 



I + 



SETL 



filen,BOF 
filen.KEY 
filen,GKEY 



0« 



012 



+- 



WAITF 



filename 



+- 



I + 

M 
I + 



WRITE 



filen,NEWKEY 
filen,KEY 



+- 











M = Mandatory 
= Optional 

'' Mandatory if sequential processing is used. ^ A READ or VJRITE macro instruction 
must not be issued between SETL and ESETL referring to the same file . 



Figure 38. Summary of Imperative Macro Instructions for Indexed-Sequential Files 
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Appendix C. Summary of Monitor Macro Instructions 



Five macro instructions can be used in 
Assembler language programs to communicate 
with the Monitor program. Two of them 
(COMRG and MVCOM) refer to the communi- 
cation region. 



Two (FETCH and EOJ) request functions of 
the Fetch routine. One refers to the 
printer-keyboard input area. Figure 3 9 
shows a summary of the formats and func- 
tions of the Monitor macro instructions . 



r T 

I Name 



I- + 



Operation \ Operands 
COMRG 



■+- 



1 Functions 
4- 



■1 



■+- 



■+- 



Places the address of the first byte of the communication 
region in register 8, Enables the communication region to 
be referred to by relative addressing. 



MVCOM 



first-byte, 
number , 
address 



Modifies information in the user areas of the 
communication region (bytes 12-2 3) . 



+- 



FETCH 
FETCH 



phase name 



Disk-resident system: requests the loading of another 
phase or subphase into main storage from the core-image 
library. Card-resident system: loads the phase that 
physically follows the phase containing FETCH. 



EOJ 



f +- 



Disk-resident system: indicates to the Monitor program 
that a job has been completed and that the Job Control 
program must be called to prepare for the next job. Card- 
resident system: causes system halt. To load the 
next Job Control deck, the operator must press START. 



IQIPT 



Loads the begin address of the printer-keyboard 

input area into register 8. You can thus refer 

to the area through relative addressing. Required if you 

use inquiry record. 



Figure 39. Summary of Monitor Macro Instructions 
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Appendix D. Programming Examples 



This appendix provides you with a number of 
examples that illustrate the use of the 
IOCS for the various types of files. 

Example Type of File 

1 and 1.1 Card files (2520 Card 

Read-Punch) , Overlap 

2 Card and printer files (2 560 
MFCM, 2501 Card Reader, 
Printer) 

3 Printer-keyboard input file 
and indexed-sequential file 

4 Printer-keyboard output file 
and sequential disk file 

5 and 5. 1 Tape output file with user 

labels and card file (2560 
MFCM) 

6 Tape update file, card file 

(2501) and printer file 

7 Sequential disk output file 
and card file 

8 Sequential disk update file 
and printer file 

9 Sequential disk file 

10 Direct-access file 

(read/write) and card file 
(2501) 

11 Indexed-sequential load file 
and card file (2501) 

12 Indexed-sequential file 

(reorganization) and sequen- 
tial disk file 

13 Indexed- sequenti^al add file 
and card file (2 560 MFCM) 

1U Indexed-sequential file 

(random/sequential ADDRTR and 
UPDATE) and card file (2501) 

15 Indexed-sequential file and 
printer-keyboard file in 
inquiry program 

16 Sequential disk, printer, and 
printer-keyboard input/output 
files - program includes ATENT 
routine 



All examples are divided into the sec- 
tions 



• file definition. 



processing routine. 



• exit routines, and 



A description of the proces 
routines is given separately f 
pie. The numbers in parenthes 
the numbers in the left-hand m 
individual examples. For info 
the file definition statements 
definition of constants, which 
definition of I/O and work are 
the relevant sections in this 



sing and exit 
or each exam- 
es refer to 
argin of the 
rmation on 

and the 

includes the 
as, refer to 
publication. 



Exam p le 1 and 1.1 - Card Files (2520 Card 
Read- Punch) 

In this example, a combined input/output 
file is processed on a 2520 Card Read- 
Punch. The card input is checked for 
blanks (2) in columns 10 through 15 to 
determine whether the record is to be 
updated. If no update is required, i.e., 
the check for all blanks failed, the next 
card is read. If the test is true, the 
record is updated (3) and the character 
string 'UPDATE' is punched (4) into columns 
10 through 15 of the record. 



It is assumed that most of the cards are 
to be updated. Therefore, the 0VERLAP=1S10 
entry has been omitted. However^ a LOM 
macro instruction is issued (1) between 
OPEN and the first GET to cause the GET 
routine to work in non-overlap mode. 



The IOCS performs a sequence check in 
columns 73 through 80 and a read-format 
check in columns 1 and 2. If a sequence 
error occurs or if columns 1 and 2 are not 
blank, the card is selected (5) into stack- 
er 2. When the end-of-file card is detect- 
ed, the file is closed (6) and the job is 
terminated. 



This example requires 5940 bytes of main 
storage. 



Example 1 . 1 is similar 
ever, this time it is a 
few cards of the combin 
updated. Therefore, th 
(1) is included in the 
statement. The program 
non-overlap mode. This 
put is slower while sto 
are reduced. 



to example 1 . How- 
ssumed that only a 
ed file are to be 
e entry OVERLAP=NO 
file definition 
is executed in 
means that through- 
rage requirements 



• definition of constants 



This example requires 5710 bytes of main 
storage. 
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3je 


TITLE 


•IOCS EXAMPLE NO 1 


- CARD FILE ON 2520' 




* 


FILE 


DEFINITION 




START 


0000 




START 


EOU 

ORG 


* 
*+460a 






* 
CARDl 


PRINT 


NO GEN 






DTFSR 


CONTROL=YES, 


- 








EOFADnR=EOFCl, 


- 








0EVICE=CRP20, 


- 








INAREA=AREA1, 


- 








INPLKSZ=80t 


- 








0UAREA=APEA2, 


- 








GUBLKSZ=80, 


- 








PFORMT1=01020, 


- 








RFXIT=RFEX1t 


- 








SEQNCE=7380t 


- 








SEQXIT=SQEX1, 


- 








TYPEFLF=CMBNn, 


- 








WORKA=YES 








OTFEN 








* 
* 

* 


EJECT 








PROCESSING ROUTINE 




USING 


START, 0,1, 2,3 




BFGIN 


EQU 


« 




1 __ 




OPEN 
— *- 1 nM 


CAROl 
CARDl 


PREFERABLE IF NEARLY ALL CARDS ARE 
TO BE PUNCHED I.E. TO BE UPDATED 


1 


« 


~^ L un 




LOOPl 


EQU 


« 








GET 


CARDl, ARE A3 


GET IS WORKING IN NON OVERLAP MODE 


o 




(CLC 

^ ■{ DM E 


AREA3 + 0'5<6),=C« 
LOOPl 

An CA'3j-/^rt/ L \ —r fl 1 inr% k 


• CHECK IF UPDATE POSSIBLE 


A — 


* 






3 — 




— ^ MVC 


AR EA3 + n9( 6 1 , =C ' 'IPOA 1 c • uuluhincj in— i^ mkc ukuaicu dt | 




« 






CHARACTER STRIMG 'UPDATE' 


A 




^ Dl IT 


CARDl, AREA3 
LOOPl 


PUT IS WORKING IN OVERLAP MODE 


4 — 


■*t 


^ rU 1 

B 




* 
SQEXl 


EXIT 


ROUTINES 


EXIT IF SEQUENCE CHECK OCCURS 


EQU 


♦ 






HPR 


X'FOl' ,0 


HALT AND CONTINUE AS POR RFEXl 




RFEXl 


EQU 


* 


EXIT IF TEST FOR BLANKS IN COLUMNS 




« 






1-2 FAILS 




* 






NO UPDATE REQUIRED 


5- 




-*- CNTRL 


CARDl, SS, 2 


SELECT ERROR CARD INTO HOPPER 2 




4 


B 


LOOPl 




A — 


PHFCl 


EQU 


CAROl 


EOF-CONDITION DETECTED 


o — 




EOJ 






* 






TERMINATION OF JOB 




* 
* 

AREAl 


DEFINITION OF CONSTANTS 


INAREA FOR 2520 


DC 


80C« • 




AREA2 


DC 


80C' ' 


OUAREA FOR 2520 




AREA3 

3jt 


DC 


80C' • 


WORKAREA FOR 2520 




* 


LTORG 
END 


BEGIN 
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^ 


TITLE 


'IOCS EXAMPLE NH 1. 


1 - CARD FILE ON 2520' 




* 


FILE 


DEFINITION 




START 


0000 




START 


EQU 
"ORG 
PRINT 


* 

*+460B 

NOGEN 






CARDl 


DTFSR 


CONTROL=YESt 

DFVICE=CRP20, 

EOFAODR=EnFCl, 

INAREA=AREA1, 

INRLKS2=80, 

0UAREA=AREA2, 

GURLKSZ=80, 


- 


1 - 


jjc 


DTFENI 
EJECT 


OVERLAP=NO, 

RFORMT1 = 01020, 

RFXIT=RPEX1» 

SEONCF=7380, 

SE0XIT = SQEX1, 

TYPEFLE=CMRNn, 

WORKA=YES 


- 




* 
* 


PROCESSING ROUTINE 




USING 


START, 0,1,2,3 




BEGIN 


EQU 
OPEN 


CARDl 






LOOPl 


EQU 


« 








GET 


CARDl, AREA? 


GET IS WORKING IN NOM OVERLAP MODE 






CLC 


AREA3 + 09(6),=C ' 


' CHECK IF UPDATE POSSIBLE 




^ 


BNE 


L00P2 








MVC 


ARFA3+09(6),=C'UPDATE' COLUMNS 10-15 APE UPDATED BY 




* 






CHARACTER STRING 'UPDATE' 






PUT 


CARDl, APEA3 


PUT IS WORKING IN NON. OVERLAP MODE 






B 


LOOPl 






L0GP2 


EQU 


« 


EXIT IF TEST FOR BLANKS IN COLUMNS 




« 






10-15 FAILS I.F. THE CARD IS ALREADY 




* 






UPDATED 






CNTRL 


CARDl, SS, 2 


SELECT CARD FOR HOPPER 2 




jfC 


B 


LOOPl 






* 

* 

SQEXl 


EXIT ( 


ROUTINES 


EXIT IF SEQUENCE CHECK OCCURS 


EQU 


* 






HPR 


X'FOl* ,0 


HALT AND CONTINUE AS FOR RFEXl 




RFEXl 


EQU 


* 


EXIT IF TEST FOR BLANKS IN COLUMNS 




* 






1-2 FAILS 




* 






NO UPDATE REQUIRED 






CNTRL 


CARDl, SS, 2 


SELECT ERROR CARD INTO HOPPER 2 






B 


LOOPl 






EOFCl 


EQU 

CLOSE 

EOJ 


CARDl 


EOF-CONDITION DETECTED 




* 






TERMINATION OF JOB 




AREAl 


DEFINITION OF CONSTANTS 


INAREA FOR 2520 


DC 


BOC ' 




AREA2 


DC 


80C« • 


OUAREA FOR 2520 




AREA3 


DC 

LTHRG 
END 


80C' • 
BEGIN 


WORKAREA FOR 2520 



Example 1.1. Card File (2520 Card Read-Punch),, Non-Overlap 
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« 


TITLE 


• IOCS EXAMPLE NO 2 


- FOR 


CAPD/PRINTER 


FILE' 






♦ 


START 


4608 














* 
* 
* 
« 
CARDl 


PRINT 


NOGEN 














FILE 


OEFINITIONS 












HTFSR 


BLKSIZF=80, 








OEVICE=REAnoi, 










- 








EnFADDR=EOFCl, 










- 








inARFAl=AREAl, 










- 








I0AREA2=APEA2, 










- 








TYPEFLE=INPUT, 










- 








WGRKA=YFS 














CARD2 


DTFSR 


BLKSIZE=80, 

CONTROL = YES, 

DEVICE=MFCM1, 

E0FADnP=E0FC2t 

inAREAX=AREA3, 

TYPEFLF=INPUT, 

WORKA=YES 










- 




CARD3 


DTFSR 


BLKSIZF=80, 

C0NTR0L=YES, 

CRDPRA=AREA4, 

CRDPRL 1=64, 

CRnPRL2=64, 

DEVICE=MFCM2, 

I0AREA1=AREA5, 

TYPEFLE=nUTPUT, 

WORKA=YES 










- 




PRINT 


DTFSR 
OTFEN 


BLKSIZE=120, 

CONTPOL=YFS» 

DEVICE=PRINTPR, 

PRINTnv=YES, 

TYPEFLE=nUTPUT, 

W0RKA=YES 










- 




^ 


EJECT 
















« 

* 
BEGIN 


PROCESSING ROUTINE 












EQU 


« 






BASR 


8,0 


LOAD 


BASF 


REGISTER 


8 








USING 


*,8,P 














BSREG 


LH 


9,BSA0D 


LOAD 


BASE 


RFGISTFR 


9 






* 


OPEN 
CNTRL 


CARDl, CAPD2,CAR03, 
PRINT, SK,1 


5RIMT 
SKIP 












^ 


MVC 


WnRKP+DSPLl(32),=C 


'LIST COMPARE RUM ON 


2501 / MFCMl' 




1 


LOOPl 


EQU 


PRINT, V/ORKP 


PRINT 










1 — 




-^ PUT 


■HEAUcK LiiNC 










PRTOV 


PRINT, 12 












*> 


SWITl 


NOP 

»M 14 \l T 


LOOP 2 
SWITl+l.X'FQ' 


FIRST 
SET F 


SWITCH, TN7TIALLY NO BRANCH 




d. 




— »■ M V 1 


IR ST 


iWl 1 Ln 1 U DKAINUn 






^ 


CNTRL 


PRINT, SP, 3 


SPACE 


3 LINES 








L00P2 


EQU 


* 
















MVC 


WOPKP+l(l?0),W0RKP 


CLEAR 


PRINT WORK AREA 








GET 


CARD1,WQRK1 












*> ^^ 




GET 


CARD2,WORK2 

WnnKP + DSPL3(80) ,W0F 












3 — 




-*■ MVC 


IK? PPEKAKt 


FOR LISTiNij 




4 — 




-i^ CLC 


WORK1(80),WORK2 


CHECK 


IF ( 


:apds equal 








BE 


LOOPl 
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e _ 




MVC 

■^ O 1 IT 


WORKP+DSPL2(3),- 
PRINT, WORKP 


=C 


OLD* INDICATE RECORD AS OLD 
PRINT THE RECORD IN ERROR 


~ 




• HUT 








PRTQV 


PRINT, 12 










CMTRL 


tSS,4 




SFLECT ERROR CARD 






MVC 


W0RKP+DSPL3(80) 


,W0RK1 PREPARE NEV RECORD | 


6- 




—♦MVC 
MVC 


WOPKP + DSPL2(3),- 
WORK3(80),WORK1 


=C' 


NEW INDICATE RECORD AS NEW 


7 __ 




^ Dl IT 


PRINT, WORKP 
PR INT, 12 




PRINT NEW RECORD 


/ ~~ 




» rU.I 

PRTOV 








CNTRL 


CARD?,SS,1 




SELECT NEW CA^O TO BE PUNCHED INTO 




* 








STACKERl I.E. MERGE INTO CARD? FILE 






PUT 


CAP 03, WORK 3 




PUNCH AND PRINT MEW RECORD 






MVC 


W0RK4(6A),W0RK3 




PREPARE FIRST 64 BYTES FOR HEAD 1 






MVC 


W0RK4+112(16),W0RK3+64 | 


8 — 




i CRDPR 
"*" * CRDPR 


,WnRK4,AREA4 








,W0RK4+64,APEA4+64 | 






CNTRL 


PRINT,SP,1 




SPACE 1 LINE 




^ 


B 


L0DP2 








* 
« 
EOFCl 


EXIT ROUTINES 




EOF CONDITION DETECTED 


EQU 


* 




EnFC2 


EQU 


* 










CNTRL 


PRINT, SK,1 




SKIP 






CLOSE 


CARD1,CARD2,CARD3 


PRINT 






EOJ 










* 








TERMINATION OF JOB 




« 
« 
* 
AREAl 


DEFINITION OF CONSTANTS 


lOAREAl FOR 2501 


DC 


80C' • 






AREA2 


DC 


80C' ' 




I0AREA2 FOR 2501 




AREA3 


DC 


80C' • 




lOAREAl FOR MFCMl 




AREAA 


DC 


128C' • 




CARD PRINT AREA FOR MFCM2 




AREA5 

3^ 


DC 


80C' ' 




lOAREAl FOR MFCMl 




wnRKi 


DC 


80C' • 




WORAREA FOR 2501 




wriRK? 


DC 


80C' • 




WORKAREA FOR MFCMl 




WORK? 


DC 


snc ♦ 




VIORKAREA FOR MFCM2 




W0RK4 


DC 


128C' ' 




WORK AREA FOR CARD PRINT 




WpRKP 


DC 


120C' ' 




WORK AREA FOR PRINTER 




BSAOD 


DC 


Y(BSREG+4096) 








DSPLl 


EQU 


10 








DSPL2 


EQU 


25 








OSPL? 


EOU 

LTORf; 

END 


30 
BEGIN 
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Example 2 - Card and _Printer Files_ (2560 
MFCM, 2501 Card Reader,, Printer) 



A card input file read on a 2501 is com- 
pared with an input file read on an MFCMl. 
A card output f.? le and a printer file are 
created. 



After the files have been opened, a 
header line is prepared and printed (1), 
and three lines are spaced. The switch is 
then modified (2) so that the space 
instruction is by-passed after subsequent 
print operations. 



A card is read from each input file and 
the record read on the MFCMl is moved (3) 
into the work area of the printer file. 
The records are compared (4). If they are 
equal, the record in the print area is 
printed, and the next two cards are read. 
If the records are not equal, the record 
read from the MFCMl is indicated as 'OLD' 
and printed (5). The characters 'NEW' are 
inserted (6) in the record read from the 
2501, and the record is printed (7) . The 
card output file is punched and card- 
printed (8) . 

This example requires 3130 bytes of main 
storage. 
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« 


TITLE 


•IOCS EXAMPLE NO 3 


- FOR PRINTER KEYBOARD INPUT FILE' 






* 


START 


4608 








* 

* 


PRINT 


MO GEN 








FILE 


DEFINITIONS 






DTFBG 


MAINPPG=YES 




DATAl 


DTFIS 


0ERREX=ERRC1» 

DEVICE=DISK11F, 

DSKXTNT=4, 

inAREAR=AREAl, 

IOROUT=RETRVE, 

KEYARG=KEYA1, 

KEYLEN=10, 

KEYLOC=lt 

NRECnS=16, 

RECFOPM=FIXBLK, 

RECSIZE=80, 

RTRVEX=RTPEXt 

TYPEFLE=RANDOM, 

UPDATE=RANDnM, 

W0RKR=WORKI 




- 




PUTIN 


DTFPK 
OTFEN 


BLKSI7E=15, 

E0FAD0R=E0FC1, 

I0AREA=AREA2, 

TYPEFLE=INPUT 




- 




^ 


EJECT 










* 

BEGIN 


PROCESSING ROUTINE 






EQU 


« 






BASR 


8,0 


LOAD BASE REGISTER 8 








USING 


*,8 








OPEN 


DATAl, PUTIN 








LOOPl 


EQU 


« 










READ 


PUTIN 


RFAD PRINTER KEYBOARD RECPRD I.E. 






* 






10 BYTES KEY INFORMATION AND 




1 __ 


* 






5 BYTES UPDATE INFORMATION 




1 — 




— *" WAI TF 


PUT IN 


WAIT FOR COMPLETION OF READ 




2- 




-». MVC 


KEYA1,ARFA2 


INSERT KEY INTO KEYARG FIELD 




3- 




-* READ 


DATAl, KEY 


RETRIEVE RECORD 






ijc 


WAITP 


DATAl 


WAIT FOR COMPLFTION OF READ 






ijc 


MVC 


W0RK1+15( 5),APEA2+10 INSERT UPDATE INTO RECORD 




4- 




-•' WRITE 


DATAl, KEY 


RETURN RECORD TO DISK 








WAITF 


DATAl 


WAIT FOP COMPLETION OF WRITE 






^ 


B 


LOOPl 








* 
* 

ERRCl 


EXIT ROUTINES 


DISK ERROR CONDITION 




EQU 


* 






HPR 


X'F01M1),0 


HALT IF IRRECOVERABLE DISK ERROR 






^ 


B 


EOFCl 








RTREX 


EQU 


* 










HPR 


X'FOl',0 


RFQUTRED RECORD NOT FOUND 






EOFCl 


EQU 

CLOSE 

EOJ 


* 

DATAl, PUTIN 


/« TYPED ON PRINTER KEYBOARD 






* 






TERMINATION OF JOB 
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* 
* 

AREAl 


DEFINITIONS OF CONSTANTS 


lOAREA FOP DISK OATAl 


DC 135CL10' ' 


AREA2 


DC 15C' ' 


lOAREA FOR PRINTER KEYBOARD INPUT 


WORKl 


DC 80C« • 


WORKAREA FOR DISK DATAl 


KEYAl 


DC C • 
END BEGIN 


KEYARG FIELD FOR KEY ON DISK DATAl 



Example 3. Printer-Keyboard Input File and Indexed-Sequential Disk File, Part 2 of 2 



Example 3 - Printer-Keyboard Input File and 
Indexed-Sequential File 

A record from an indexed-sequential file is 
retrieved randomly and updated according to 
control information typed in on the 
printer-keyboard. The control information 
consists of ten bytes of key information 
and five bytes of update information,, 



After the record has been completely 
transferred to the input area (1) , the key 
information is inserted into the KEYARG 
field (2) . Then, the record is retrieved 
(3) , updated, and written back on disk (4) . 



This example requires 44 50 bytes of main 
storage. 
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^ 


TITLE 


•IOCS EXAMPLE NO A - FOR PRINTER KEYBOARD OUTPUT FILE' 






START 


X«1200« 






^ 


PRINT 


NOGEN 






* 


FILE 


TEFTNITIPNS 


NO MAINLINE AND NO INQUIRY PROGRAM 


DTF8G 


, 




DATAl 


OTFSO 


BLKSTZE=800, 

DEVICF=DISK11F, 

EOFADnR=EOFCl, 

ERROPT=SKIP, 

I0AREA1 = APEA1, 

IOAREA2=AREA2, 

I0REG=(13), 

RECFORM=FIXBLK, 

RECSIZE = 80, 

TYPEFLE=INPUT 


- 




OUTPT 


OTFPK 

DTFLC 
DTFEN 


CONTROL=YFS, 

BLKSI1E=30, 

T0AREA=AREA3, 

LCTARLF=YES, 

PRINTOV=YFS, 

TYPEFLE=OUTPUT, 

WORKA=YFS 

45,00301,04012 


- 




-jjc 


EJECT 








* 
* 
BEGIN 


PROCESSIMG ROUTTME 




FQU 


* 






BASR 


10,0 


LOAD BASF REGISTER 10 




^ 


USING 


*,10 






^ 


OPEN 


DATAl, OUTPT 








/ COMRG 


» 


LOAD ADDRESS OF COMMUNICATION 




* 


i 




REGION INTO REGISTER 8 






) MVC 


HEADl+22(?),0(8) 


PREPARE DATE IN HEADl (MONTH) 


1 — 


». 


< MVC 


HEADl + 25(2),2(8) 


(DAY) 






J MVC 


HEADl + 28(2),4( 8) 


(YEAR) 






f PUT 


OUTPT, HFADl 


TVPE HEADl 






^ PUT 


0UTOT,HEAD2 


TYPE HEAD2 






CNTRL 


OUTPT, SP, 3 


SPACE 3 LINES 




LDOPl 


EOU 


« 




o_— 




GET 


DATAl 
0(6,13 ),=C' 


TFST FOR BLANKS IN COLUMNS 1 - 6 


z, 




■*• CL C 


«J __ 


* 


BE 

^ U II /^ 


LOOPl 
W0RK1(30) ,0(13) 


IF NOT, MOVE FIRST 30 BYTES TO WORKl 


J 




-*• MVC 






PRTOV 


OUTPT, 12 


TFST FOR END OF FORM ,TF YES 




« 






SKIP TO NEXT PAGE 






PUT 


OUTPT, WORKl 


TYPE RECORD 




^ 


B 


LOOPl 






* 
EOFCl 


EXIT ROUTINES 




EQU 


« 






CNTRL 


OUTPT, SP,1 


SPACE 1 LINE 






MVI 


WORKl, X'40» 


CLEAR AREA WORKl 






MVC 


WORKl (30) , WORKl 




A — 




MVC 

- D1 IT 


WORKK 11),=C«END OF FILE* 1 


A^^ 




-•• PUT 


(jUTPT , WflK K 1 


1 YKC cur LUIMU 1 1 lUM 






CLOSE 


DATAl, OUTPT 








EOJ 








« 






TERMINATION OF JOB 
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* 
AREAl 


DEFINITIONS OF CONSTAIMTS 


DC 


81CL10' • lOAREAS FPR DATAS 


APEA2 


DC 


81CL10' • 


AREA3 


DC 


30C« • IQARFA FOR OUTPT 


HEADl 


DC 


C'FILF = DATAl, DATE = / / « 


HEAD2 


oc 


C IDENTIFIED RECORDS RETRIEVED ' 


WORKl 


EOU 


HEAOl WORKAREA FOR OUTPT 




LTORG 






END 


BEGIN 
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Example 4 - Printer-Keyboard Output and 
Sequential Disk lile 

A sequential disk file is checked for 
records containing blanks in columns 1 
through 6. Records that do not contain 
blanks in these columns are printed on the 
printer-keyboard. The current date in the 
communication region is fetched and printed 
on the printer keyboard (1) . A record of 



the sequential file is read and checked 
(2) . If the record does not contain blanks 
in columns 1 through 6, it is moved to the 
printer-keyboard work area and printed (3) . 
When the end of the file is reached, the 
message 'END OF FILE' is printed (4) . 



This example requires 4270 bytes of main 
storage. 



Appendix D. Programming Examples •IBS 





* 


TITLE 


'IOCS EXAMPLE NO 5 


) - TAPE OUTPUT FILE WITH USER LABELS' 




« 


START 
USING 


4608 
*-4608,0tl.2,3 






^ 


PRINT 


NOGEN 






* 

* 
DATAl 


FILE 


DEFINITION 




DTFMT 


BLKSIZF=360, 








DEVADDR=SYS010, 


- 








FILABL=STD, 


- 








I0AREA1=APEA1, 


- 








LABADDR=LABEL, 


- 








REAO=FnRWARD, 


- 








RECFOPM=FIXBLK, 


- 








RECSIZE=90, 


- 








TYPEFLE=OUTPUT, 


- 








WOPKA=YFS 






CARDl 


DTFSR 
DTFEN 


BLKSI7F=80, 

CnNTROL=YES, 

DFVICE=MFCM1, 

EnFADDR=EOFCl, 

inAPEAl = APEA2, 

TYPEFLE=TNPUT, 

WaRKA=YES 


- 




-f 


EJECT 








* 

* 

REGIM 


PROCESSING ROUTINE 




Enu 


* 




^c 


OPEN 


OATAl^CARDl 






LOOP! 


EQU 


* 




1 




GET 


CARDl, WORK 2 




1 — 




-♦■ AP 


WO" Kl tCONT 1 


UPDATE RECORD COUNT 






PUT 


DATA1,W0RK1 






jjt 


B 


LOOPl 






EOFCI 


EXIT F 


ROUTINES 


EXIT FOR FOF CONDITION 


EQU 


* 






CLOSE 


DATAl, CARDl 








EH J 








* 






TERMINATION OF JOB 




* 


USER LABEL HANDLING 






LABEL 


EQU 


« 






* 






DO NOT USF REGISTERS 14 AND 15 


2 — 


. 


-^ CH 


8, TYPE 


CHECK IF HEADER LABEL REQUIRED 






BF 


LABLl 


BRANCH IF HEADER LABEL REQUIRED 






LH 


REG2,LABL8 


LOAD RFG2 WITH TRAILER-LABEL ADDR. 






B 


LABL2 


IF NO HEADER LABEL INDICATION, 




« 






RETURN TO IOCS 




LABLl 


LH 


REG2,LABL6 








AH 


REG2,LABLN 


UPDATE LABEL POINTER 


3 — 




-* CH 


REG2,LABL7 


CHECK BRANCH TO LBRET 1 






BE 


LABL2 


IF EQUAL, BRANCH TO LBRETl 


4 — 




-*■ MVC 
STH 


0(80,9),n(REG2) 
REG2,LABL6 


BUILD ADDITIONAL LABEL INFORMATION 


5 — 




-*■ LBRET2 


RFTURN TO IOCS AFTFR BUILDING USER 




* 






LABEL EXCEPT THE LAST ONE 




LABL2 


MVC 


0(80»9),0(REG2) 




6 — 




-*► LBRETl 


RETURN TO IOCS AFTER BUILDING LAST 




« 






I.E. FOURTH USER LABEL 



Example 5. Tape Output File with User Labels and Card File, Part 1 of 2 



•136 



« 
7 ►LABLS 


DEFINITION OF CONSTANTS FOR USER LABEL 


EQU 


« 


DEFINITION OF USER LABEL INFORMATION 




nc 


CL24'UHL1 


FIRST USER LABEL' 




DC 


56C' • 






DC 


CL24'UHL2 


SECOND USER LABEL' 




DC 


56C' ' 






DC 


CL24'UHL3 


THIRD USER LABEL' 




DC 


56C' ' 






DC 


CL24'UHL4 


LAST USER LABEL' 




DC 


56C« ' 




LABL6 


DC 


Y(LABL5-8n) BEGIN POIh'TER OF LABL5 AND SAVEFIFLO 


LABL7 


DC 


Y(LABL 5+3*80) END POINTER OF LABL5 


LABL8 


DC 


Y(*+2) 






DC 


CL24'UTL1 


USER TRAILER LABEL' 


* 
* 
* 

AREAl 


DC 


56C« ' 




DEFINITION OF CONSTANTS 


DC 


36CL10' ' 


IQAREA FOR DATAl 


AREA2 


DC 


80C' • 


lOAREA FOR CARDl 


WORKl 


DC 


PL10'+0« 


WORK AREA FOR OATAl 


8— ^W0RK2 


DC 


08CL10' • 


VORK AREA FOR CARD + DATAl 




DS 


OH 




TYPE 


DC 


C 0' 




LABLM 


DC 


H'80' 


LENGTH OF USER INFORMATION 


CONTl 

•it 


DC 


PLlO'+l' 




REG2 


EQU 


13 




END 


BEGIN 
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Example 5 - Tape Output File with User 
Labels and Card File (2560 MFCM) 

A tape output file is created from a card 
input file read on the 2560 MFCMl. The 
output file has four additional header 
labels and one additional trailer label. 



The processing loop reads the cards and 
writes the records on magnetic tape. Com- 
mon overlapping work areas are used (8) for 
this purpose. K record count is prepared 
in the first ten bytes of the tape records 
(1) . The LABADDR routine checks (2) if 



header labels are required. If no labels 
are to be written, control is returned to 
the IOCS. If labels are to be built, the 
label constants (7) are moved to the label 
area used by the open routine (4) . The 
label information pointer is checked (3). 
If further labels are to be written, LBRET 
2 is executed (5) . Otherwise a branch to 
LBRET 1 is taken (6). 



This example requires 3230 bytes of main 
storage. 
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* 


TITLE 


•IOCS EXAMPLE NO 


5.1 - TAPE OUTPUT WITH USER LABELS' 




* 


START 
USING 


^608 
*-4608,0»l,2»3 






* 

* 

DATAl 


PRINT 


NDGEN 






FILE 


DEFINITION 




DTFMT 


BLKSIZE=380, 








OEVADOR=SYS6lO, 


- 








FILABL=STD, 


- 








I0AREA1=AREA1, 


- 








I0REG=(REG2), 


- 








LABADDR=LABEL, 


- 








READ=FORWARDt 


- 








REWIND=NORWD, 


- 








RECFnRM=VAl^BLK, 


- 








TYPEFLE=OUTPUT, 


- 








VARBLD = (REG1) 






CARDl 


DTFSR 
DTFEN 


BLKSIZE=80t 

CONTROL=YFS, 

DEVICE=MFCM1, 

ECPADDR=E0FC1, 

I0AREA1=AREA2, 

TYPEFLE=1NPUT, 

WORKA=YES 


- 




^ 


EJECT 








* 

BEGIN 


PROCESSING ROUTINE 




EQIJ 


* 






OPEN 


DATAl, CARDl 






^ 


SR 


REGItREGI 






LOOPl 


EQU 
GET 


CARDl, W0RK2+10 




1- 




*- CH 


REG1,PECLN 


CHECK IF AREA OVERFLOW 






BNL 


L00P2 


IF YES TRUNCATE BLOCK 


2- 


^ 


*► TRUNC 


DATAl 




3- 


— ^L0OP2 


MVC 


W0RK1(?),PECLN 


NIOVF RECORD LENGTH INTO WORK AREA 


^_ 




( LH 
• SH 


REG1,PECLN 
REGl,=H'l' 


PREPARE MOVE INSTRUCTION 


4 


* 








STH 


REGltMOVEl 


INSERT LENGTH INTO INSTRUCTION 






MVI 


M0VE1,X'D2« 


RESTORE OP-CODE 


5 


— ^MOVEl 


MVC 


0(84,REG2),WORK1 


MOVE RECORD INTO lOAREA 






AP 


M0RK2,C0NT1 


UPDATE RECORD COUNT 






PUT 


DATAl 






ijt 


B 


LOOPl 






* 
* 

EOFCl 


EXIT ROUTINES 




CLOSE 


DATAl, CARDl 






EOJ 














TERMINATION OF JOB 




* 


USER 


.ABFL HANDLING 






LABEL 


EQU 


* 






* 


CH 


8, TYPE 


DO NOT USE REGISTERS 14 AND 15 






BE 


LABLl 


BRANCH IF HEADFR LABEL INDICATION 






LH 


REG2,LABL8 


LOAD REG2 WITH TRAILER-LABEL ADDR. 






B 


LABL2 


IF NO HEADEP LABEL INDICATION, 




* 






RETURN TO IOCS 
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LABLl 


LH 


REG2,LABL6 










AH 


REG2,LABLN 




UPDATE LAPEL POINTER 






CH 


REG2,LABL7 




CHECK BRANCH TO LBPETl 






BE 


LABL2 




IF EQUAL, BRANCH TO LBRETl 






MVC 


0{80,9),0(REG2) 


BUILD ADDITIONAL LABEL INFORMATION 






STH 


REG2,LABL6 










LBRET2 




RETURN TO IOCS AFTER BUILDING USER 




« 








LABEL EXCEPT THE LAST ONE 




LABL? 


MVC 


0(8n,9),0(REG2) 








LBRETl 




RETURN TO IOCS AFTER BUILDING LAST 




* 








I.E. FOURTH USER LABEL 






nET=INITTON OF CONSTANTS 


FOR USER LABEL 




LABL5 


EQU 


« 




DEFINITION OF USER LABEL INFORMATION 






nc 


CL24'UHL1 


FIRST 


USER LABEL' 






DC 


56C' • 










nc 


CL24'UHL2 


SECOND 


USEP LABEL' 






nc 


56C' • 










DC 


CL24'UHL3 


THIRD 


JSER LABEL' 






DC 


56C' ' 










DC 


CL24«UHL4 


LAST USER LABEL' | 






DC 


56C' • 








LABL6 


nc 


Y(LABL5-80) 




BEGIN POINTER 0^ LABL5 AND SAVEFIELD 




LABL 7 


DC 


Y(LABL5+3*80) 


END POINTER OF LABL5 




LABL8 


DC 


Y(*+2) 










DC 


CL24'UTL1 


USER TRAILER LABEL' | 




9je 


DC 


56C' ' 








* 
* 
* 

AREAl 


DEFINITION OF CONSTANTS 


lOAREA FOR DATAl 


DC 


H'340' 








DC 


H'O' 










OC 


20RC^ • 










DC 


20RC« ' 








AREA2 


DC 


snc • 




lOAREA FOR CARDl 




WORKl 


DC 

DC 


H'84' 
H«0« 




WORKAREA FOR DATAl 




WORK 2 


DC 
DC 
OS 


PL10'+0« 
08CL10' ^ 
OH 




DATA AREA FOR DATAl. 




TYPE 


DC 


C 0« 






6 


^RECLN 


DC 


H'84« 




FIELD FOR CURRENT RECORD LENGTH 




CONTl 


DC 


PL10'+1« 








LABLM 

3^ 


DC 


H'80' 








REGl 


EQU 


13 








REG2 


Eon 

END 


12 
BEGIN 
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Example 5.1 - Tape Output File with U ser 
Labels and Card File (2560 MFCM) 



This example is very similar to example 5, 
However, (pseudo) variable records are 
built for the tape output file. 



It is assumed that the field RECLN (6) 
contains the record length. Before the 
record is moved to the I/O area (5), 
a check (1) is performed to determine 
whether the block has to be truncated (2) 
or whether the record fits into the area. 



The number of bytes that are still avail- 
able in the I/O area are contained in REG2, 
i.e., in the VARBLD register. The record 
length is inserted into the first two bytes 
of the work area' (3) . The required length 
is inserted into the MVC instruction (4) , 
i.e., record length minus one. Then, the 
record is moved to the I/O area (5) and 
written onto tape. 



This example requires 33U0 bytes of main 
storage. 
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* 


TITLE 


'IOCS EXAMPLE NO 6 


- TAPE UPDATE WITH CARD INPUT' 






START 


^&08 










USING 


*-4608,0, 1,2,3 










PRINT 


NO GEN 








* 
PUTIM 


FILE 


DEFINITIONS 






DTF^^T 


ALTTAPE=SYS008, 








BLKSIZF=360, 




- 








DEVADDR=SYSn07, 




- 








EnPADDP=EOFCl, 




- 








ERRI0 = ERRIO, 




- 








f:RROPT = ERRCl, 




- 








FILABL=STD, 




- 








T0AREA1=AREA1, 




- 








IOARFA2=AREA2, 




- 








I0REG=(REG1), 




- 








READ=FORWARD, 




- 








RECFORM = FIXBLK, 




- 








RFCSIZF=90t 




- 








REWTND=UNLnAD, 




- 








TYPEFLF=!NPUT 








nUTPT 


DTFMT 


ALTTAPE=SYS011, 

BLKSI7E=180, 

DEVADDP=SYS010, 

FILABL=STD, 

I0AREA1=ARFA3, 

I0AREA2=ARPA4, 

I0REG=tREG2), 

READ = FORWARD, 

RErFORM = FTXRLK, 

RECSIZE = 90, 

REWIND=UNLOAD, 

TYPEFLE=DUTPUT 




- 




CARDl 


DTFSR 


BLKSIZE=2n, 

DEVICE=READ01, 

E0FAD0R=E0FC2, 

I0AREA1=AREA5, 

I0AREA2=AREA6, 

SE0NCE=0110, 

SEnXIT=SEQEX, 

TYPEFLF=INPUT, 

WORKA=YES 




- 




PRINT 


DTFSR 

DTFEN 
EJECT 


BLKSI7E=90, 
DEVICE=PRINTER, 
TYPEFLE=OUTPUT, 
WOPKA=YES 




- 




* 


PROCESSING ROUTINE 






USING 


DSECT,REG2 




BEGIN 


FQU 


« 








^ 


OPEN 


PUT I N,OUTPT, CARDl, PRINT 




1 


LOOPl 


EQU 


SWIT2+1,X'00' 


CHANGE SWITCH 2 TO NOP 








-*" MVI 








GET 


CARDl, WORKl 


GET NEXT CARD 








PACK 


UPDT1(10),UPDT1(10) 






2 • 


'L0GP2 


GET 


PUTIN 


GET TAPE RECORD 




3 

4 




-^ MVC 


0(90,REG2),0(REG1) 
RCPOK 10) ,UPDT1(10) 


CHFCK IF UPDATF REQUIRED 




A 




—*" CP 






SWITl 


BNE 


L00P3 


IF NOT, PUT RECORD IMMEDIATELY 






« 






ON TAPE 




5 




JMVC 
~^JMVC 


RCPD2<3),UPDT2 


INSERT UPnATE INFORMATION FROM 


CARD 




RCRD4(7),UPDT3 


INTO TAPE RECORD 




6 




-.► MVI 


SWIT2+1,X'F0' 


CHANGE SWITCH 2 TO BRANCH 




7 — * 


'LOOP 3 


PUT 


OUTPT 








SW1T2 


NOP 


LOOPl 


BRANCH TO GET NEXT CARD 




8 




-*• B 


LOOP 2 


BRANCH TO GET NEXT TAPE RECORD 
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* 
* 

EOFCl 


EXIT 


ROUTINES 


END OF TAPE INPUT FILE 


EOU 


* 




CLOSE 


PUTIN, 0UTPT,CARD1, PRINT | 




EOJ 






* 






TERMINATION OF JOB 


9 *-E0FC2 


EQU 


« 


END OF CARD FILE CONDITION 




MVI 


SWIT2+l,X'nO' DFACTIVATF CApD pEADING | 




B 


L00P2 


TRANSFER PEST OF TAPE FILE 


ERRCl 


EQU 


* 


TAPE ERROR FOR INPUT FILE 


10 *>PUTPR 


PUT 


PRINT,* 


PRINT ERROR RECORD 


11 ^ERRIO 


EQU 


PUTPR+A 


lOARFA IN ERROR ADDRESS WILL BE 


« 






INSERTED AS PRINTAREA ADDRESS 




B 


SWIT2 


RFTURN TO LOOP 


SEQEX 


EQU 
WAITC 


« 






HPR 


X'FOl' ,0 


HALT INDICATES CARD OUT OF SEQUENCE 


« 






THE CARD WILL PE SKIPPED ON RESTART 




GET 


CARDl, WORKl ONE DUMMY GET REQUIRED | 


jle 


B 


LOOPl 


RFTURN TO LOOP 




DEFINITION OF CONSTANTS 


OS 


OH 




AREAl 


OC 


36CL10' 


lOAREAS FOR INPUT 


AREA2 


DC 


36CL10' 




AREA3 


DC 


18CL10' 


lOAREAS FOR OUTPT 


AREAA 


DC 


18C1.10' 




AREA5 


DC 


02CL10' 


lOAREAS FOR CAROl 


AREA6 


DC 


02CL10' 




WORKl 


EQU 


* 


WORKAREA FOR CARDl, CONTAINING 


UPDTl 


DC 


IOC ' 


FIELDl 


UPDT2 


DC 


03C' • 


FIELD2 


UP0T3 
12 ^DSECT 


OC 


07C' • 


FIELD3 


DSECT 






RCRDl 


DS 


CLIO 


FIELD 1 IN INPUT RECORD 




OS 


CLR 




RCRD2 


DS 


CL3 


FIELD 2 IN INPUT RECORD 


RCRD3 


DS 


CL2 




RCRO^ 


DS 


CL7 


FIELD 3 IN INPUT RECORD 


« 


NO FURTHER DEFINITION MUST BE GIVEN, TF NOT REQUIRED IN DSECT | 


REGl 


EQU 


08 


EQUATING OF REGISTERS 


REG2 


EQU 


0<? 




REr,3 


EQU 


10 






END 


BEGIN 
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Example 6 - Tape Update File, Card File 
(2501) and Printer File 



A tape input file is updated by a presorted 
card input file, and an output file is 
created on tape. 



A card is read and the branch switch, 
which causes the next card to be read, is 
set to no-operation (1) . Tape records are 
read (2) and moved from the input to the 
output area (3) . The card record and the 



tape record are compared (4) to determine 
whether they have the same identifier. If 
they do, the record is updated (5) and the 
read switch is changed (6) so that the next 
card can be read. If no update is 
required, the card is immediately written 
onto tape (7) and the next tape record is 
read (8) . 



In the card end-of-file routine (9) the 
switch for card reading is turned off and 
the rest of. the tape file is copied. If an 
error occurs in the tape input file, the 
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error routine prints (10) the first record 
of the block preceding the block that con- 
tains the error record. ERRIO (11) is 
equated to PUTPR+U to cause the address of 
the I/O area containing the error record to 
be inserted as work area address in the PUT 
macro instruction. For ease of reference, 
a dummy section is generated for the tape 
output area (12) . The referenced base 
register REG2 is the lOREG of the tape 
output file. 

This example requires 3 6 80 bytes of main 
storage. 



Example 7 - Sequential Disk Output File and 
Card File 

This example illustrates the creation of a 
sequential disk output file from a card 
input file. A card is read, moved to the 
I/O area (2) and written onto disk (3) . 
lOREG must be specified (1) because blocked 
records are processed in the I/O area and 
no work area is specified. 

This example requires 4050 bytes of main 
storage. 
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* 


TITLE 


'IOCS FXAMPLF NO 7 


- SEQUENTIAL DISK OUTPUT FILE' 




* 


START 
USING 


4608 
*-4608»0,l,?,3 






■4e 


PRINT 


NOGEN 






* 
* 
CARDl 


FILE 


DEFINITIONS 




DTFSR 


BLKSI7.F = 80, 








DEVICE=READ01, 


- 








EOFADDR=EOFC1, 


- 








I0AREA1=AREA1 , 


- 








IOAREA2=AREA2, 


- 








TYPEFLE=INPUT, 


- 








WOPKA=YES 




1 


DATAl 


DTFSD 


BLKSIZE=800» 

0EVICE=DISK11F, 

DTAREX=DTAEX, 

ER1>0PT=ERRC1, 

I0APEA1=AREA3, 

I0REG=(REG1), 

RECFORM=FIXBLK, 


- 


l- 






_ 








RECSIZE=80, 


- 








TYPEFLE=OUTPUT 








DTFEN 










EJECT 








« 










* 
BEGIN 


PROCESSING ROUTINE 




EQU 


« 




A; 


OPEN 


CARDl,nATAl 






LOOPl 


EQU 


* 




2 




GET 


CARDl, WORKl 
0(80, REGl), WOPKl 


MOVE ONE RECORD 


^L0nP2 


—^ M V C 


3- 


PUT 


DATAl 






^ 


B 


LOOPl 






* 
* 

* 
DTAEX 


EXIT ( 


ROUTINES 


EXIT ON EXTENT OVERFLOW ON DISK 


EQU 


* 




^ 


HPR 


X'FOl* ,0 


HALT AND CONTINUE AS FOR EOFCl 




EOFCl 


EQU 

CLOSE 

EOJ 


* 

CARDl, DATAl 


EXIT ON EOF CONDITION ON 2501 




* 






TERMINATION OF JOB 




FP^RCl 


EQU 


« 


EXIT ON PERMANENT DISK ERROR 






HPR 


x'Foi* (i),n 


HALT REQUIRES ALTERNATE TRACK ASSGN. 




* 


P 


EOFCl 






* 
AREAl 


DEFINITION OF CONSTANTS 


INPUT AREAS FOR 2501 


DC 


80C« • 




ARFA2 


nc 


80C' • 






AREA? 
>•< 


DC 


81CL10' • 


OUTPUT AREA FOR DISK 




WORKl 


DC 


80C' • 


WORK AREA FOR 2501 




REGl 


EQU 
END 


8 
BEGIN 
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* 


TITLE 


•IOCS EXAMPLE NO 8 


- SEQUENTIAL OT SK UPDATE FILE' 




PRINT 


NOGEN 








START 


4608 






* 
DATAl 


USIN^, 


*-4608,0,l,2,3 






FILE 


DEFTNITIONS 




DTFSD 


BLKS1ZE=800, 








DEVICE=DISK11F, 


- 








E0FADDP=E0FC1, 


- 








ERR0PT=ERRC1, 


- 








I0AREA1=AREA1, 


- 








I0ARPA?=APFA2, 


- 








I0REG=(REG1), 


- 








RECFORM=FIXBLK, 


- 








RECSIZE=80, 


- 








TYPEFLE=1MPUT, 


- 








UPOATE=YES 






PRINT 


DTFSR 
DTFEN 


BLKSTZE=80, 

DEV1CE=PRTNTFR, 

PRINTOV=YES, 

TYPEFLE=OUTPUT, 

CONTROL=YES, 

WORKA=YES 


- 




^ 


EJECT 








* 
* 
* 
BEGIN 


PROCESSING ROUTINE 




EOU 


* 






OPEN 


OATAl, PR INT 








CNTRL 


PRINT, SK, 1 


SKIP 






PUT 


PRINT, WORK 1 


PRINT HEADING 




* 


CNTRL 


PRINT, SP, 3 


SPACE 3 LINES 




LOOPl 


EQU 
GET 


DATAl 




1 — 




-^ CLC 


0(6,RFG1),=C' 


' CHECK FOR UPHATE INOICATION 






BE 


LOOP 2 


BRANCH IF UPDATE IS REQUIRED 






B 


LOOPl 






LnOP2 


EQU 


« 




o 




MVC 


0(6,RFGl),=C'UPnATE 
W0RK1(80),0(RFG1) 


' INSERT UPDATE INFORMATION 
MOVE RECORD INTO WORK ARE A FOR PRINT 


z — 




— •- MVC 






PRTOV 


PRINT, 1? 




3 — 




-^ PUT 


PRINT, WORK 1 


PRINT UPDATED RECORD 


4 — 




-*- MVI 


SWCHl + l.X'FO" 


CHANGE SWITCHl TO BRANCH 


5 — 




-*► PUT 

B 


OATAl 
LOOPl 


REWRITE UPDATED RECORD 




* 

FOFCl 


EXIT ROUTINES 


EXIT ON EOF CONDITION 


EQU 


* 




SWCHl 


NOP 


CLOSE 




A 




MVC 

a, D 1 1 T 


WORKK 10), NOTE 1 
PRINT, WORKl 


PRINT NOTE 'NO RECORDS UPDATED' 


— 




— ^- y\j 1 




CLOSE 


EOU 

CLOSE 

EOJ 


DATAl, PRINT 






« 






TERMINATION OF JOB 




ERRCl 


EPU 
CNTRL 


* 

PRINT, SP,1 


EXIT ON DISK ERROR 






MVC 


WORKK 80) ,0(|>FG1) 


RPfOROS OF NEXT BLOCK BEHIND THE 






PUT 


PR I NT, WORKl 


BLOCK CONTAINING THE PRINTED RECORD 




* 


CNTRL 
MVI 


PRINT,SP,1 
SWCHl+l,X'Fn« 


T*^ UNREADABLE 






B 


LOOPl 


SKIP THE ERROR BLOCK 
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* 
■* 

« 
AREAl 


DEFINITION OF CONSTANTS 


DC 


81CL10' ' INPUT AREAS FOR DATAl 


AREA2 
WORKl 


DC 


81CL10' ' 


DC 


CL3n'LISTlNG OF RECORDS UPDATED' 




DC 


CLIO' ON OATAl ' 




DC 


4nC' ' 


NOT El 

* 

RFGl 


DC 


CLIO' NO' 


EQU 


8 




LTORG 




« 








END 


BEGIN 
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Example 8 - Sequential Disk Update_File_and 
££i?2ter_File 

A sequential disk file is to be updated by 
inserting the characters 'UPDATE'. Each 
record is read and checked (1) if update is 
required. If so, the update information is 
moved to the I/O area and the record is 
made available for printing C2). The 
record is printed (3) and written back onto 



disk (5) . Switch 1 is changed to by- pass 
the printing of the message that no records 
are updated (4,6) . If an error is detected, 
the error routine prints the first 
record of the block preceding the block 
that contains the error record. 



This example requires 4730 bytes of main 
storage. 
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* 


TITLE 


'IOCS EXAMPLE NO 9 


- EXTENSION OF SEQUENTIAL DISK FILE' 




* 


START 
USING 


4608 
«-46n8tO, 1,2,3 






^ 


PRINT 


NO GEN 






* 
* 


FILE 


DEFINITION 






* 

DATAl 


DTFSn 


BLKSI7E=800, 
0EVTCE=DISK11'=, 

EnFADnp=LnoP2, 

inAREAl=AREAl, 

I0REG=(REG1), 

RFCFORM=FIXBLK, 

RECSIZE=8n, 

TYPEFLF=INPUT, 

UPr)ATE=YES 


~ 




PRINT 


DTFSR 
DTFEN 


BLKSI7E=80, 

CONTROL = YES, 

OEVICE=PRINTER, 

PRINTOV=YES, 

TYPEFLE=OUTPUT, 

WnRKA=YES 


- 




^ 


EJECT 








* 
* 
* 
BEGIN 


PROCESSING ROUTINE 




EQU 


* 






OPEN 


DATAl, PRINT 


OPEN FILES 






CNTRL 


PRINT, SK,1 








MVI 


X'OOCESX'nO' 


CLEAR 'CE'-BYTF 




LOOPl 


EQU 


* 




I_ 




, (IfZT 


DATAl 

W0RK1+Q(70) ,Q(RFG1) 




1 




MVC 








B 


LOOPl 




2- 


— ^L00P2 


NOP 


CLOSE 


ROUTINE TO EXTEND THE FILE 






MVI 


L00P2+1,X'F0' 


ACTIVATE BRANCH TO CLOSE 




L00P3 


EQU 


* 








MVC 


0(80,PEGl),WnRKl 


MOVE RECORD TO lOAREA 


•>_ 




^ Dl IT 


DATAl 
PRINT, 12 
PRINT, WORKl 




4- 




PRTOV 
-^ PUT 




5- 




-•► MVI 


80{REGl),y'00' 


CLEAR FURTHER POSSIBLE /« INDICATOR 


A- 




GET 
^ ri T 


DATAl 
X'OOCE',X'EF« 


UPDATE RECORD POINTER 

CHECK CE-PYTE FOR EOF INDICATION 


o 




"•" V^L 1 




SWCHl 


BNE 


LOOP? 


IF NOT CONTINUF EXTENSION 


7 




MVI 

__^ U \| /• 


SWCH1 + 1,X'00« 
W0RK1(3),=C'/* ' 


SET BRANCH OFF 




-■♦' MVC 


INSERT /* AS EOF CONDITION 






CM 


REG1,=Y(AREA1+9*R0) 


ENSURE PROPER WRITING OF EOF CONDIT, 






BL 


L00P3 








MVC 


0(80, REGl), WORKl 




8- 




-»- PUT 


DATAl 


WRITE LAST BLOCK 






CLOSE 


DATAl, PRINT 


CLOSE FILES 






En J 








* 






TERMINATION OF JOB 




* 
•* 
AREAl 


DEFINITION OF CONSTANTS 


lOAREA FOR INPUT 


DC 


81CL10' • 




WORKl 


DS 
DC 
DC 


0CL80 

CLIO'EXTFNSION ' 
7CL10' 






REGl 


EQU 
END 


8 
BEGIN 





Example 9. Extension of a Sequential Disk File 



•146 



Example 9 - Extension of a Sequential Disk 
File 

This example shows how a sequential disk 
update file may be extended. The file(l) is 
read until the EOF condition is encountered 
and the EOF routine (2) is entered. In the 
end-of-'file routine, a switch is set in 
order to transfer control to EOJ if the EOF 
routine is entered a second time, i.e., if 
the end of an extent is reached or if a /* 
is detected which does not belong to the 
current file. Therefore, all disk extents 
should be cleared or an apporpriate restart 
should be provided for those cases. 

The record to be added to the file is 
moved to the I/O area, written onto disk 



(3) and printed (4) . Possible EOF indica- 
tors in subsequent records are replaced by 
binary zeros (5) . When all records have 
been added to the file, X'EF' must be 
entered into the CE-byte to simulate the 
end-of-file condition (6) . The characters 
/*6 are inserted (7) in each record of the 
last block, which is written onto disk by 
another PUT (8) . 

When /* is encountered the first time, 
the execution of the PUT macro instruction 
(3) leads to a halt. A restart is 
required. However, X'EF* must not be 
entered into the CE-byte at this time. 

This example requires 3640 bytes of main 
storage. 
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* 




TITLE 


• IOCS EXAMPLE NO 10 


- DIRECT ACCESS ONTO DISK' 








•^TART 


46'^8 












USING 


*-4608,0,l,2t3 








^ 




PRINT 


NO GEN 








CARDl 




FILE 


"tFFINITlONS 






DTFSR 


BLKSIZE=RO, 










DEVICE=RFAD01, 


- 












E0FADDR=F0FC1, 


- 












I0AREA1=ARFA1, 


- 












IOAREA2=AREA2, 


- 












TYPEFLF=INPUT, 


- 












WORKA=YES 








DATAl 




DTFOA 
DTFEN 


BLKST2E=2A0, 

DEVICE=DISK11F, 

FRRBYTE=ERRBT, 

I0AREA1=AREA3, 

READID=YES, 

SEEKADP=SEEKAt 

TYPF«^LF=INPUT, 

WRITEID=YES 


- 






* 

BEGIN 




EJECT 












PROCESSING ROUTIMF 






EQU 


* 








OPEN 


CAR 01, DATAl 








LOOPl 




EQU 

GET 
MVM 


CAPD1,W0RK1 
SEEKA( l),wnRKl 


IMSERT VOLUME NUMBER 'N' 




1 — 




-*- 


PACK 


PACKF(3),W0RK1 + 1(5) 


PACK THE DISK AODPESS '-CCCHR' 




2 — 
1 


« 


"^ 


CNVRT 
CLI 


SEEKA,PACKF 
INOICC ' 


CONVERT DEC. TO HEX. DISK ADDRESS 
CHECK IF UPDATE REQUIRED 




o 




*^ 










BE 


LnOP3 


IF NOT, GO TO WRITE 




A — 


Ln0P2 




READ 

WAITF 

BAS 

MVC 


DATAl, ID 

DATAl 

14,EPRC1 

AREA3( 10),TEXT1 


CHECK IF ERROR OCCURS 
UPDATE RECORD 




4 

c 


« 






— 




""^ 










B 


L0aP4 








L00P3 




EQU 


* 






6 — 




-.^ 


MVC 


AREA3(70),TEXT1 


BUILD NEW RECORD 




7- 


■♦L00P4 




WR I T E 
WAITF 
BAS 
B 


DATAl, ID 
DATAl 
14, ERRC2 
LOOPl 


CHECK IF DISK FRROR OCCURS 




o ^_ 


FRRCl 




EQU 

TM 


EPFBT,B'1100000n' 


TEST IF ADDR. IS INVALID OR 




o 




* 






« 




BZ 

HPR 
B 


EPRC2 
X'FOI • ,n 
LOOPl 


OUTSIDE EXTENTS 

HALT INDICATES USFR ERROR 
READ NEXT CONTROL CARD 




o — . 


ERRC2 




EQU 
TM 
BZ 
MVI 


ERPBT + 1,B' nimoooO'' 

ERRC3 

X'OOCFSX'OO' 


TFST INTERVENTION REO./EOUIPM. CHECK 




y — 




"""'*" 












HPR 


X'F02' (1),0 


HALT INDICATES EQUIPMENT CHECK 






* 




CLI 
BE 


X«OOCE«,X'FF' 

EOFCl 


SWITCH DISK DRIVE ON/OFF 

IF X'FF' IS ENTERED GO TO FOJ 






ERRC3 




TM 
BZ 
HPR 


ERPBT+1,B'00001110' 

0(0,14) 

X'F03' 11), 


TEST DATA/SFPK CHECK OR NO REC. FOUND 
HALT INDICATES DISK ERROR 




10- 




""*■ 


B 


LOOPl 


READ NEXT CONTROL CARD 
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FOFCl 


EXIT 


ROUTINE 




EQU 


« 




CLOSE 


CARDltDATAl 






EOJ 






* 
AREAl 






TERMINATION OF JOB 


DEFINITION OF CONSTANTS 


INPUT AREAS FOP 2501 


DC 


80C' ' 


APEA2 


DC 


snc ' ' 




APEA3 

3(e 


DC 


27CL10' ' 


OUTPUT AREA FOR DISK 


WORKl 


DC 


CL7'NCCCHR' 


DRIVE AND DISK ADDRESS - PACKED 


INDTC 


DC 


CL?'I' 


UPDATE INDICATOR 


TEXTl 


DC 


CLIO* ' 


UPDATE INFORMATION AND 


ERRBT 


DC 


60C' ' 


NEW RECORD INFORMATION 


DC 


H'O' 


RESERVATION FOR ERROR INFORMATION 


SEEKA 


DC 


XLP'OO' 


SEEK ADDR. FIELD 'MBBCCHHR' 


PACKF 


nC 


XL'^'OO' 


PACK FIELD X'CCCHR + « 




END 


BEGIN 
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Example 10 - Direct-Access File and Card 
File 

A direct-access file is processed by con- 
trol information read on the 2 501 Card 
Reader. 



is read if the address is invalid. Other- 
wise, the update information is inserted 
(5) , and the record is written onto disk 
(7) . If column 8 contains a blank, a new 
record is created (6) and written onto disk 
(7) . 



The cards contain the following informa- 
tion: 

cols. 1-6 the disk address NCCCHR 
col. 8 I for update, or 

b indicating that a new 
record is to be created 
cols. 10-80 data. 

The disk address is converted (2) if it 
is in packed format (1) . A test is per- 
formed (3) to see whether an update is 
required. If it is, the disk address is 
checked for validity (4, 8) . The next card 



In case of an equipment error (9) , the 
job is aborted. If no record is found or 
the data-seek check fails, the next card is 
read (10) . 



In this example it is assumed that the 
file has already been loaded. If this is 
not the case, TYPEFLE=OUTPUT must be speci- 
fied to create a label in the VTOC. 

This example requires 3420 bytes of main 
storage. 
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« 


TITLE 


'IOCS EXAMPLE MO H 


- LOADING AN ISFMS FRE' 






« 


START 


4608 








* 


PRINT 


NO GEN 








FILE DEFINITIONS 






OTFBG 






QATAl 


OTFIS 


ALTREX=ALFX1» 

CYL0FL=3, 

CYNDEX=CYEX1, 

0ERREX=FRRC1, 

DFVICE=0ISK11F, 

DSKXTNT=4. 

DTAREX=DTFX1, 

0UPRFX=DUPX1, 

I0AREAL=AREA1, 

I0ROUT=L0AD, 

KEYLEN=n, 

KEYL0C=1, 

NRECDS = 16, 

RECFORM=FIXBLK, 

RECSIZE=80, 

SQCMEX = S0EX1, 

W0RKL=W0RK1 




- 




CARDl 


DTFSR 

DTFEN 
EJECT 


BLKSTZE=80» 

DEVICE=READ01, 

FOFADDR=EOFC1» 

!0AREA1=AREA2, 

I0AREA2=AREA3, 

TYPEFLE= INPUT, 

WORKA=YES 

OVLAY 




- 




« 












* 
* 


DEFINITinN OF CONSTANTS 






USING 


USINGtP 




USING 


FOU 


* 








. AREAl 


DC 


135CL10' • 






!-•- 


)aREA2 


DC 


BOC ' 






)AREA3 


DC 


BOC ' 








(WORKI 


DC 


BOC • 








USADO 


DC 


Y(USING) 








EJADD 


DC 


Y(EOJOB) 








* 
(FRRCl 


PROCESSING ROUTINE 


01 SK ERROR EXIT 




EQU 


« 


2-^ 




HPR 


X'FOl" (1),0 


HALT REQUIRES ALTERNATE TRACK 


ASSGN. 




'ERRC2 


B 


EOFCl 








BEGIN 


EQU 


« 










DC 


X'4890« 


LM 9, USADO I.E. 






« 


DC 

DROP 
OPEN 
USING 
SETFL 
/ FETCH 
( REPRO 


Y(USADD) 

9 

DATAl, CARDl 

USING, <? 

DATAl 


LOAD BASE REGISTER 9 




« 




1 ACTION DUP 


OPEN ROUTINE IS 
OVERLAID BY 




J 


* 


< X FR 


DC It IIN 








J REPRO 


» 


PROBLEM PROGRAM 








f ACTION NODUP 










^ ORG 


BEGIN 
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LOOPl 


EQU 


* 




4- 




<GET 
'WRITE 


CARDltWORKl 






OATAltNEMKEY 






•A 


B 


LOnPl 






* 
ALEXl 


EXIT ROUTINES 


ALTREX EXIT 


EQU 


* 






HPR 


X'FOl' ,0 


HALT INDICATES NO LOAD EXTENSION 




« 


B 


EOFC? 


POSSIBLE, REORGANISATION REQUIRED 




DTEXl 


EQU 


* 


PRIME DATA OVERFLOW EXIT 




CYEXl 


EQU 


* 


CYl,INDER INDEX OVERFLOW EXIT 






HPR 


X'F02«,0 


HALT INDICATES NO FURTHER LOADING 




* 






POSSIBLE, RELOADING/REORGANISATION 




^ 


B 


EOFCl 


REQUIRED 




OIJEX 1 


EQU 


« 


DUPLICATE RECORD DETECTED 




SQEXl 


PQU 
HPR 


* 
X«F03',0 


RECORD OUT OF SEQUENCE 






B 


LOOPl 


RETURN 




EOFCl 


EQU 


* 




5- 




-^ MVC 
ENDFL 


EPRC2+2(2),EJAD0 
DATAl 


CHANGE ERROR EXIT ADDRESS 




E0FC2 


EQU 
FETCH 
/LTORG 


* 








i REPRO 


» 


PROBLEM PROGRAM 






1 ACTION DUP 


IS OVERLAID 


X 




-b. / VCD 


BEGIN 


BY CLOSE ROUTINE 


O 




Jrfpro 






f ACTION NODUP 






« 


^ORG 

DROP 

CLOSE 

USING 


BEGIN 

9 

DATAl, CARDl 

USING, 9 






EOJOB 


EOJ 








« 


END 


BEGIN 


TERMINATION OF JOB 



EKample 11, Indexed-Sequential Load File and Card File, Part 2 of 2 



Example 11 - Indexed-Seguential Load File 
aQi_Card__File_i2 501)_ 

Records contained in punched cards are 
loaded onto disk as an indexed-sequential 
file. The overlay technique is used for 
the Open (3) and Close (6) routines. All 
I/O and work areas (1) naust precede the 
overlay address BEGIN. The same applies to 
the error routines (2) which may be entered 



during the Close routine. In order to 
avoid a program loop,, the address of the 
error routine is changed (5) to the EOJ 
address before the Close routine is 
entered. Processing consists of reading a 
card and writing the record onto disk (4) . 



This example requires 5570 bytes of main 
storage. 
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* 


TITLE 


•IOCS EXAMPLE NO 12 


- REORGANISATION OF AN ISFMS FILE' 




« 


REPRO 










« 


PHASE 


REORG1,A,4608 








PRINT 


NOGEN 








START 


START 











* 
* 

* 
DATAl 


ORG 


*+460B 








FILE 


DEFINITIONS 






DTFIS 


DERREX=FPPC1, 








DEVICE=0ISK11F, 




- 








DSKXTNT=4, 




- 








EOFAnDR=EOFCl» 




- 








I0AREAS=AREA1, 




- 








I0PEG=(8), 




- 








I0R0UT=RETRVF, 




- 








KEYARG=KEYA1, 




- 








KEYLEN=10, 




- 








KEYL0C=1, 




- 








NRECDS=16, 




- 








RECFORM=FIXBLK, 




- 








RFCST7.E = 80, 




- 








TYPEFLE=SEQNTL 








SQSAV 


DTFSO 

DTFFN 
EJECT 


BLKSIZF=lftno, 

DEVICE=0ISK11F, 

I0AREA1=AREA2, 

I0REG=(9), 

RECFORM=FIXBLKt 

RECSIZE=80» 

TYPEFLF=OUTPUT 




- 




* 












* 
* 


PROCE 


5SING ROUTINE 






USING 


STARTtO,l,2»^ 




BEGIN 


EQM 

OPEN 


* 

DATAl, SOSAV 








* 
LOOPl 


SETL 


DATAltBOF 








FQU 


« 










GET 


DATAl 






1 — 


« 


-^ PACK 


KEYPK(6)»KEYA1(10) 


SAVE THE KEY FOR LATER USE 
I.E. IF ERROR OCCURS 




o^ 




MVC 

■^ mix 


0(80,9)»0(8) 
SQSAV 


TRANSFER RECORD 




J. 




■*• PUT 








■ifi 


B 


LOOPl 








* 

ERRCl 


EXIT ROUTINES 


READ ERROR ON DATAl 




EQU 


* 




* 


HPR 


X'FOl' (1),0 






o 


ESETL 


DATAl 
KFYPK(6),=P«1' 


INCREASE KEY BY ONF 




o — 




^^ AP 








UNPK 


KEYAHin),KEYPK(ft) 


RESTORE THE KEY 








SETL 


DATAl, GKEY 










B 


LOOPl 








« 












EHFCl 


EQU 
ESFTL 


* 
DATAl 








« 


CLOSE 


DATAl, SQSAV 








FETCH 


RE0RG2 
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* 

* 

* 

AREAl 

AREA2 

KFYPK 
KEYAl 

* 
* 

* 
* 



SQSAV 



OEFINITIPN OF CONSTANTS 



OS 10CL135 

DS 10CL160 

OC 6C' • 

DC IOC ♦ 

END BEGIN 



TITLE 'IOCS EXAMPLE NO 12- - REORGANISATION OF AN ISFMS FILE' 

I 1 

I THE FOLLOWING SECOND PHASE MUST BE SEPARATELY ASSEMPLED I 
I ~ I 





REPRO 


START 


PHASE REORG2,A,460fi 


START 




ORG *+A608 


* 

DATA2 


PRINT NOGEN 


FILE DEFINITIONS 


DTFIS ALTREX=ALEX1, 



CYL0FL=3, 
CYNDEX=CYFX1, 
DERREX=ERRC1» 
DEVICE=DISK11F, 
0SKXTNT=5, 
0TAREX=DTEX1» 
DUPREX=0UFX1, 
I0AREAL=AREA1, 
TOROUT=LOAD, 
KEYLEN=in» 
KEYL0C=1, 
NRFCDS=16, 
RECFORM=FIXBLK, 
RFCSI7F=8n, 
S0CHEX=SQFX1, 
W0RKL=W0RK1 
DTFSD BLKSIZE=1600, 

DEVICE=DISK11P, 

E0FADDR=E0FC1, 

EPROPT=SKIP, 

I0AREA1=AREA2, 

RECFORM=FIXBLK, 

RECSI7E=8n, 

TYPEFLE=INPUT, 

WORKA=YES 





DTFEN 
EJECT 








PROCESSING ROUTINE 




BEGIN 
LOOPl 


USING 
FQU 
OPEN 
SETFL 


START, 
* 

DATA?, 
DATA2 


0,1,2, 
SQSAV 


3 


FQU 
J GET 


* 
SOSAV, 


HORKl 
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* 










* 

CYEXl 


EXIT 


ROUTINES 


CYLINDER INDEX AREA OVERFLOW EXIT 


EQU 


« 




OTEXl 


EQU 


* 


PRIME DATA AREA OVERFLOW EXIT 




^ 


HPR 


X'FOl' ,0 


CHANGE EXTENT CARDS 




EHFCl 


EQU 
ENDFL 
CLOSE 
EOJ 


* 

DATA2 

DATA2,SnSAV 






5!t 






TERMINATION OF JOB 




ERRCl 


EQU 


* 


ERROR EXIT 






HPR 


X'FOl' (1),0 


WRITE ERROR ON DISK 




* 


B 


EOFCl 






ALEXl 


EQU 


« 


EXIT ON OCCUPIED LAST TRACK 


5 


— ^SOEXl 


EQU 


« 


EXIT ON SEQUENCE ERROR 




OUEXl 


EQU 


* 


EXIT ON DUPLICATE RECORD 






HPR 


X'POZ' (1),0 


ERROR HALT 




:{( 


B 


LOOPl 






* 

* 

AREAl 


DEFINITIONS OF CONSTANTS 




OS 


10rLl?5 




AREA? 


DS 


10CL160 






WORKl 
* 


OS 

END 


80C 
BEGIN 
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Example 12 - Indexed-Sequential Fi le 

( Reorganization) and Sequential Disk File 

This example illustrates the reorganization 
of an indexed-sequential file. The program 
consists of two phases which must be assem- 
bled separately. Records of the indexed- 
seguential file are retrieved and written 
back onto disk in sequential order (2) . 
Then, in the second program phase, the 
sequential file is read and loaded onto 
disk in indexed-seguential order (U) . To 
allow maximum time performance, the I/O 
areas must be as large as possible. 

The error routine for the indexed- 
sequential input file skips all error 
records. When an error occurs, the last 
key saved is updated by one (3). The key 
is assumed to contain an unpacked decimal 
value. It is retrieved with the option 
GKEY. If another error occurs, the key is 
again retrieved and updated until the GET 
is executed without an error. The key 
save-field KEYPK is supplied with the key 
each time a GET has been executed CI). 

The exits (5) are abnormal;, i.e., they 
should only occur if there is an error in 
the system or in the IOCS routines. 



This example requires 11,700 bytes of 
main storage in phase 1 and 12,470 bytes in 
phase 2. 



Example 13 __-_Indexed-Sequential ADD File 
and Card File 

Records read on a 2560 MFCM are added to an 
indexed-sequential file. 

The processing routine reads the cards 
and adds the records to the disk file (1). 
If a duplicate record occurs no add opera- 
tion is performed, and the card is selected 
(2) into stacker U. If records are to be 
added to the last track of the prime data 
area,, those cards are not added but select- 
ed (3) into stacker 5. They can be includ- 
ed in the file during a subsequent 
load/ extension run. If all overflow areas 
are full (4), the job is terminated. The 
file must be reorganized before further 
records can be added. The error routine 
EREXl checks for errors in the track or 
cylinder index (5). If an error occurs,, 
the job is aborted. 

This example requires 10,430 bytes of 
main storage. 
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* 
OATAl 



CARDl 



TITLE 'IOCS EXAMPLE MO 13 - ADDING RFCnRDS TO AN ISFMS FILE* 



START 

USING *»0,l,2t3 
ORG *+^608 
PRINT NOGEN 



FILE DEFINITIONS 



DTFIS AOAREX=AnFXl, 
ALTRFX=ALEX1, 
CYLOFL=?, 
0ERREX=EREX1» 
0EVICE=0ISK11F„ 
nSKXTNT=4T 
DUPREX=DUEXlt 
ERRINF=YES, 
I0AREAL=AREA1, 
IGROIJT=AnD, 
KEYLEN=10, 
KEYL0C=1, 
NRECDS=16, 
RECFOPM = FIXBLK„ 
RECSIZE=80, 
WO«'KA = APEAO, 
W0RKL=W0RK1 

DTPSR BLKSIZE=8n, 
C0NTR0L=YESf 
DEVICE=MFCM1, 
FOFADDR=EnFC\, 
I0AREA1=AREA2, 
TYPEFLE=INPUT, 
WOPKA = YFS 





DTFEN nVLAY 


^ 


EJECT 


* 

■if 


DEFINITION. PF CONSTANTS 


* 




ARFAO 


DS 80C 


ARFAl 


DS 10CL135 


AREA2 


DS 80C 


WORKl 
* 

5jC 


DS 80C 


* 
* 
■if 


PROCESSING ROUTINE 




DS OH 


BEGIN 


EQU * 


^ 


OPEN DATAl, CARDl 




FETCH 




REPRO 




ACTION DUP 




XFR BEGIN 




REPRO , 




ACTION NO DUP 


if, 


ORG BEGIN 


LOOPl 


EQU * 




GET CARDl, WORKl 




*• WRITE DATAltNEWKEY 




WAITF DATAl 




B LOOPl 



lOAREAS FOR ADD FRF (MANDATORY SE- 
QUENCE) 
INPUT AREA FOP CARD 

WORK AREA 



OPEN ROUTINE IS 
OVERLAID BY 
PROBLEM PROGRAM 



Example 13. Indexed-Sequential ADD File and Card File, Part 1 of 2 



Appendix D. Programming Examples ©ISS 





* 


EXIT 


ROUTINES 




* 






2 — 


OUEXl 
* 


EQU 
-^ CNTRL 
R 


* 

»SS,4 

LOOPl 


o 


ALEXl 


EQU 


* 




« 


""*■ CNTRL 
B 


» SS»5 

LOOPl 


4- 


■*► AOEXl 
* 


EQU 
HPR 
B 


X'FOl^O 
EOFCl 


«: 


EREXl 
* 


EQU 
HPR 
CNTRL 


* 

x'Foi' (i),n 

»SSt5 


O 


« 


* TM 
BO 


OATA1A+2»B'0001 
EOFCl 




* 


B 


LOOPl 




EOFCl 


EQU 

CLOSE 

EOJ 


* 

DATA! tCARDl 



END 



BEGIN 



EXIT DN DUPLICATE RECORD 
SELECT INTO STACKER 4 



EXIT ON RECORDS FOR LAST TRACK 
SELECT INTO STACKER 5 



EXIT ON OVERFLOW AREA FULL 



EXIT ON PERMANENT DISK ERROR 

SELECT INTO STACKER? THOSE 
RECORDS THAT APE NOT ADDED 
lOOn* TEST IF ERROR IN INDEX 
IF YES, ABORT THE JOB 



EXIT ON EOF CONDITTpN 



TERMINATION OF JOB 
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Example 14 - Indexed-Seguential File 
(Random/Sequential ADDRTR) and Card File 

Records of an indexed-sequential file are 
retrieved randomly or sequentially, and 
updated. The card input file is read on 
the 2501 Card Reader. 

The cards contain the following informa- 
tion 



cols. 


1-10 


key 


col. 


11 


blank 


cols. 


12-13 


number of records to be 
retrieved 


cols. 


15-20 


update information 


cols. 


15-80 


add information 



The overlay technique for Open (1) and 
Close (19) is used. After reading (2) a 
card, a check is performed to determine 
whether the number of records to be 
retrieved is a valid decimal number. If it 
is invalid, it is set to COO*. If only 
one record is to be retrieved (3) , random 
processing is performed (L00P3) , i.e., the 



record is read (12) , updated (13) , printed 
(14) , and, if desired, written back onto 
disk (15) . If more than one record is to 
be retrieved, the number is packed (4) and 
the first record is retrieved sequentially 
with the option KEY. Columns 15 through 20 
are checked for blanks (6) . If they are 
not blank, the record is updated and the 
switch for writing (9) is changed (7) so 
that the record can be put onto disk. The 
switch is reset (5) before the next record 
is checked for update. Each record 
retrieved is printed (8) . If the record 
count becomes zero (10) , the next card is 
read (11, 2) . 

If a record could not be found, a new 
record is built and added to the file (16) . 
This record is indicated as an addition 
(17) and printed. In the end-of-file rou- 
tine for the indexed-sequential file (18) the 
next card is read. At the end of the card 
file, all files must be closed. 

This example requires 8870 bytes of main 
storage. 
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* 
* 
* 
OATAl 



CARDl 



PRINT 



AREAO 
APEAl 
AREA2 
APEA3 
APEAA 
AREA5 

HORKl 
WHRKZ 
WORK^ 



KFYAl 

* 
COUNT 



TITLE 'IOCS EXAMPLE NO 14 - PANSEQ AOP-PFTRIEVE PROCESSING' 



PRINT NPGEN 

START 4608 

USING *-4608,0,l,2,3 

PRINT NOGEN 



FILE DEFINITIONS 



DTFIS ADAREX=ADEX1, 
CYL0FL=3, 
DERREX=EREXlt 
DEVICE=0ISK11F, 
0SKXTNT=4» 
DUPREX=DUEX1» 
EOFAnDR=EOFClt 
I0AREAL=AREA1, 
T0AREAP=AREA2t 
I0AREAS=AREA3» 
I0REG=(8), 
I0R0UT=ADDRTR, 
KEYARG=KEYA1, 
KFYLEN=10, 
KEYL0C=1, 
NRECDS=16, 
RECFORM=FIXBLKt 
RECSI7E=80t 
RTPVFX=RTEX1, 
TYPEFLE=RANSEQ„ 
UPnATE=RANSEQT 
WORKA=AREAO, 
WORKL = WnRKl 

DTFSR BLKS!7E=80, 

nEVICE=READ01, 
EnFADDR=EnFC2, 
I0AREA1=AREA4» 
I0AREA2=APEA5t 
TYPEFLF=INPUT, 
WORKA=YES 

DTFSR BLKSIZE=100, 
CONTROL=YES, 
DEVICE=PRINTER., 
PRINTOV=YES, 
TYPEFLE=0UTOUT., 
WnRKA=YES 

DTFEN OVLAY 

EJECT 

DEFINITIONS OF CONSTANTS 



DS 
DS 
DS 
DS 
DS 
DS 

DC 
DC 
DC 
DC 
DC 
EQU 



80C 

135CL10 

135CL10 

135CL10 

80C 

80C 



IPAREAS FOR ADD 

lOAREA FOP RANDOM RETRIEVAL 
lOAREA FOP SEQUENTIAL RFTPIE\/AL 
lOAREAS FOR 2501 



80C« ' V'ORK AREA FOR CARD/DISK 

C'DATAl PPOC WORK AREA FOR PRINTER 

CL30'FSSED BY RANSFQ ADD-RETRIEVF W 
CLin'TTH UPDATE' 
50C' ' 
WORKl 



DC PL2«0« 

LTORG 
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* 




* 
* 

* 


PROCESSING ROUTINE 






OS OH 


BEGIN 


EOU * 




OPEN DATAltCARDl 


* 






/FETCH 




I REPRO 




1 ACT ION DtIP 


^ 


■\xfr begin 
Jrepro , 






f ACTION Nonnp 




^ORG BEGIN 



OPEN ROUTINE IS 
nvERLAIO PY 
PROBLEM PROGRAM 



CNTRL PRINT, SK,1 SKIP 

PUT PRINT»W0RK2 PRINT HEADER 

CNTRL PRINT,SPt3 

MVC wnRK2( 10),=CL10« ' CLEAR PART OF HEADER 

LOOPl EOU * 

CNTRL PRINT,SP,1 SPACE ONE LINE 
*• GET CAR01,W0RK1 

CLI H0RKI+11,C'0« CHECK FOR CORRECT TWO DIGIT DECIMAL 

BL LOP 12 NUMBER 

CLI W0RK1+11,C'9' 

BNH L0P13 

LnP12 MVI M0RK1+11,C«0' IF FIRST DIGIT INCORRECT, SET IT 

L0P13 CLI WnPKl + 12,C"T 

BL LOPIA 

CLI W0RK1+12,C'9' 

BNH L0P15 

Lnpi4 MVI W0RK1+12,C'0« IF SECOND DIGIT INCORRECT, SET IT 

L0P15 EQU « 
* 



*■ CLC W0nKl + ll(2),=C '01 • CHECK TF RANDOM PROCESSING REQUIRED 

BNH LOOPS 
« 

* SEQUENTIAL PROCESSING 

MVI RTFXl + l,X'nO« SET SWITCH TO NOP 

4 ^ p^f.,^ C0UNT(2),W0RK1+11(2) PACK NO. OF RECORDS TO BF UPDATED 

SETL DATA1,KEY 

5— ^ MVI SWCH1 + 1,X'F0' SET SWITCH TO BRANCH 

EQU * 

GET DATAl 

6 ^ CLC W0RK1 + 14(5), = 5C' • CHECK IF UPDATE REQUIRED 

BE L0P21 

MVC 45(5,a),W0RKl+l4 UPDATE RECORD 

7 ^ MVI SWCHl + l,X«nO' SET SWITCH TO MOP 

EQU * 

MVC WORK3(80),n(8) 

PRTOV PRINT, 12 

PUT PRINT, W0RK2 PRINT RETRIEVED RECORD 

« 

9 »-SWCHl R LOP22 

PUT DATAl 

LOP22 EQU * 

SP C0UNT(2) ,=PL2«1' CHECK IF NEXT RECORD IS TC BE 

^0 ► CP COUNT( 2),=PL2'0' UPDATED, IF NOT READ NEXT CARD 

BH L00P2 
* 

ESETL DATAl 

11 ^B LOnPi 



« 


LOOP 2 






L0P21 
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* 
* 
L00P3 


EQIJ 
MVI 
MVI 


RTEX1+1,X«F0' 

SMCH2+1,X'F0' 

DATAl, KEY 

OATAl 

W0RK1+14( 5), = 5C' 

L0P31 

45(5,8),WnRKl+14 

SWCH2 + 1,X'00« 

« 

WORK? (80), 0(8) 

PRINT, 12 

PRINT, WnRK2 


11 _ 




— ^*' R E AU 
WAITF 
CLC 
BE 


^A - 


L0P31 


MVI 
EQU 
MVC 
PRTOV 








T5- 


SWCH2 


WAITF 
B 


DATAl 
LOOPl 
DATAl, KEY 
DATAl 
LOOPl 


ij 




'•■ V'R I 1 b 
WAITF 
B 




* 
* 

RTEXl 

RTEX2 


EXIT ROUTINES 


16- 

IT- 


NOP 
ESETL 
FO'J 
—••WRITE 
MVC 


RTEX2 

DATAl 

* 

DATAl, NEWKEY 

WORK3(aO),WORKl 

W0RK2+5(3),=C'ADn 

PRINT, 12 

PR INT,W0RK2 

WORK2+5(3},=C' 

DATAl 

LPOPl 






PRTOV 

PUT 

MVC 

WAITF 
B 


18- 


— ^EOFCl 


B 


LOOPl 




ADEXl 


EOU 
HPR 
B 


X'POl* ,0 
LOOPl 




OUEXl 


EQU 
HPR 
B 


X'F02' ,0 
EnjOB 




EREXl 


EQU 
HPR 
B 


X»F01M1),0 
EOJOB 




EDJOB 
EnFC2 


EQU 
FQU 


* 
« 


19- 




FETCH 
/ LTORG 
(rEPRO , 
1 ACTION OUP 
*-<:XFR BEGIN 
j REPRO 

f ACTION NODUP 
^ORG BEGIN 



CLOSE DATAl, CARDl, PRINT 
EOJ 



END 



BEGIN 



RANDOM PROCESSING 



SET SWITCH TO BRANCH 
RESET SWITCH TO BRANCH 



CHECK IF UPDATE REQUIRED 

UPOATP RECORD 

SET SWITCH TO NOP I.E. UPDATE REQ, 



WRITE UPDATED RECORD ON DISK 



EXIT IF NO RECORD HAS BEEN FOUND 



MOVE RECORD TO PRINT AREA 
MOVE ADD IDENTIFIER 



CLEAR ADD IDENTIFIER 



EXIT ON EOF CONDITION 

EXIT ON OVERFLOW AREA FULL 
HALT INDICATES NO ADD POSSIBLE 



EXIT ON DUPLICATE RECORD 
ABNORMAL HALT 



PERMANENT DISK ERROR 
ERROR HALT 



END OF JOB HANDLING 



PROBLEM PROGRAM 

IS OVERLAID 

BV CLOSE ROUTINE 



TERMINATION OF JOB 
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* 


TITLE 

START 


• IOCS SAMPLE NO 15 
4608 


- INQUIRY PROGRAM' 




3^ 


PRINT 


NO GEN 






* 

* 


FILE 


DEFINITIONS 




OTFBG 


INOPRG=YES 




DATAl 


OTFIS 


DERREX = FRRC1, 

nEVICE=DISKllF, 

DSKXTNT=4, 

E0FADDP=E0FC1, 

I0AREAS=APEA1, 

IORnUT=RETRVE, 

KEYARG=KFYA1, 

KEYLEN=10, 

KEYL0C=1, 

NRECDS=16, 

RECFORM=FIXBLK, 

RECSIZE=80, 

RTRVFX=RTEX1, 

TYPEFLE=SEQNTL, 

WORKS=YES 


- 




nUTPT 


OTFPK 

OTFEN 
EJECT 


TYPEFLE=nUTPUTt 
BLKSI7E = 80, 
WORKA=YES 


- 




* 

BEGIN 


PROCESSING ROUTINE 




EQU 


* 






BASR 


^^tO 








USING 


«,q 




1 




OPEN 

(fc T ^ T O T 


OATAltOUTPT 


LOAD ADDRESS OF INQUIRY RECORD 


1 — 




*^ 1 y 1 p 1 


» 


o 


« 


^ M \ir' 


KEYA1(10),0(8) 


INPUT AREA INTO REGISTER 8 
INSERT KEY INTO KEYARG FIFLD 


/. — 




^^^ M VC 






CLC 


11(3,R),=C' • 


CHECK IF NO. OF RECORDS IS INDICATED 


o 




BE 
—1^ o Krsi 


LOOPl 

COUNT( 2), 11(3, 8) 


PACK NUMBER TMTO RECORD COUNT 


o — 




^*- rAt,t\, 




LOOPl 


SETL 


DATAl, GKEY 




A 


LnOP2 


EQU 


* 

DATAl, wnRKl 




4 — 




-*■ GET 








PUT 


0UTPT,W0RK1 




e 




SP 


C0UNT(2),=PL?' + 1' 
COUNT( 2),=PL2'0' 


CHECK IF ANOTHER RECORD IS REQUIRED 







— *• CP 








BH 


L00P2 


IF YES RETURN INTO LnnP2 




CLOSE 


EQU 
ESETL 
CLOSE 
EOJ 


DATAl 
DATAl, nUTPT 






« 






TERMINATION OF JOB AND RETURN TO 




« 






MAINLINE PROGRAM 




* 
ERRCl 


EXIT ROUTINES 


EXIT FOR DISK ERROR 


EQU 


* 






HPR 


X'FOl' {1),0 


HALT INDICATES ALTERNATE DISK 




* 






ASSIGNMENT IS REQUIRED 




EOFCl 


EQU 


« 


END OF PILE EXIT 




RTEXl 


EOU 


* 


NO RECORD FOUND EXIT 




■if. 


B 


CLOSE 






* 
* 
AREAl 


DEFINITION OF CONSTANTS 




OC 


135CLin« ' 




HORKl 


DC 


aoc • 






KEYAl 


DC 


lOC^ • 


KFYARG FIELD 




COUNT 


DC 

LTORG 

END 


PL2'+1' 
BEGIN 
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Example 15 -' Indexed-Seguential File and 
Printer-Keyboard File in Inquiry Program 

The inquiry program retrieves records of an 
indexed-sequential file by key. 



The key has the following format: 



1 bytes key information 
1 byte blank 

3 bytes number of records to be 
retrieved. 



The printer-keyboard input area (INQIPT) 
in the Monitor must be at least 14 bytes 
long. The IQIPT macro instruction (1) 
places the address of the input area that 
is to contain the inquiry record into reg- 
ister 8. The key is moved to the KEYARG 
field (2) and the record count is initial- 
ized (3) . Records are retrieved (4) and 
printed until the count is zero (5) . If it 
is zero, EOJ is entered and control is 
returned to the mainline program. 

This example requires 4660 bytes of main 
storage. 



TITLE 'IOCS EXAMPLE NO 16 - AN ATENT PGUTINE' 



START 4608 

USING *-4608,0tlT2,3 

PRINT NOGEN 



FILE OEFINITiriNS 



DATAl 



PRINT 



PUTIN 



TYPEN 



DTFBG ATENT = YE 

OTFSD BLKSIZE= 
DEVTCE=D 
EOFADDR = 
I0AREA1= 
RECFORM= 
RECSTZE= 
TYPEFLE = 
UPDATE=Y 
WnRKA=YE 

DTFSR BLKSIZE= 
CONTROL 
0EV1CE=P 
PRINTOV= 
TYPEFLF= 
WORKA=YE 

DTFPK BLKSIZE= 
EnFADDR= 
IOAREA=A 
TYPEFLE= 

DTFPK BLKSI7F = 
IOAREA=A 
TYPFFLE = 
WnRKA=YE 

DTFEN 

EJECT 



S 

800, 

ISKllF,, 

EOFCl, 

AREAlt 

FIXBLKt 

80, 

INPUT, 

ES, 

S 

80, 

YES, 

R INTER, 

YES, 

OUTPUT, 

S 

81, 

EnFC2, 

REA2, 

INPUT 

80, 

REA3, 

OUTPUT, 

S 
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* 


PROCESSING ROUTINE 


BEGIN 


EQU 

OPEN 

CNTRL 


* 

PRINT, PUTIN, TYPFN 

PRINT,SK,1 


1 ^ OPENl 

SWCHO 


OPEN 

MVI 

MVI 


DATAl 

SWCH3+1,X'F0' 

SXCH0+1,X«F0' 


LOOPl 


EQU 
GET 


* 
nATAl,WORKl 


2 ^SWCHl 


B 
PUT 


SWCH2 
TYPEN,W0RK1 


3 ^SWCH2 


B 

PRTOV 

PUT 


SWCH3 
PRINT, 12 
PRINT, WORKl 


4 ^SWCH3 


B 


L00P2 



MODIFY SWITCH FOP UDOATE 
RESET SWITCH MOOIFTEP 



SWITCH FOR TYPING 
SWITCH FOR PRINTING 

SWITCH FOP UPDATE 



LOOP? 

* 

* 



ATEOO 



9- 
10- 

n- 

12- 

13- 
14- 

15- 



ATE02 



ATEOA 



ATE06 



ATE08 



* 
ATEIO 



* 
ATE20 



16- 



ATE30 



PUT DATAl, W0RK2 
EQU * 
B LOOPl 

ATENT ROUTINE 



ATENT 



■*■ READ PUTIN 

WAITF PUTIN 

LH POINT, =Y(AREA2) 

EQU * 

-^ CLC 0(3, POINT), =C«FOJ« 

BNE ATE02 

■*■ MVI SWCH4+1,X«F0« 

CLC 0(A, POINT), =C'TYPE' 

BNE ATE04 

MVI SHCH1+1,X'00« 

CLC 0(6, POINT), =C'NnTYPE' 

BNE ATE06 

MVI SWCH1 + 1,X'F0' DEACTIVATE TYPING 

CLC 0(5, POINT) ,=C«PRINT' 

BNE ATE08 

MVI SWCH2 + 1,X«00' ACTIVATE PRINTING 

CLC 0(7,POINT),=C'NnPRINT' 

BNE ATEIO 

MVI SWCH2+1,X'F0' 



READ CONTROL INFORMATION 

LOAD POINTER WITH AREA? ADDRESS 

DECISION AND HODIFING ROUTINE 

ACTIVATE EOJ FOR NEXT EOF CONDITION 

ACTIVATE TYPING 



CLI AREA2,C'=' 

BNE ATF2n 

-►MVC W0RK2( R0),AREA2+1 

-*-MVI SWCH0+1,X'00« 

AH POINT, =H'l' 

-► CH POINT, =Y(AREA2+81) 

BNL ATE30 

CLI 0(POINT),C«, ' 

BNE ATE20 

AH POINT, =H'1« 

B ATEOO 

RFTRN 

END OF ATENT ROUTINE 



DEACTIVATE PRINTING 

CHECK IF UPDATE REQUIRED 

MOVE UPDATE TEXT 

ACTIVATE UPDATE FOR NEXT REOPEN 

UPDATE AREA? POINTER 
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* 

EOFCl 


EXIT ROUTINES 


EQU 


* EOF rONOITION FOR SEOUENTIAL DISK 


17 — ^ SWCH4 


NOP 


E0FC2 




CLOSE 


DATAl 




B 


OPENl 


F0FC2 


EQU 


* 


18—*- 


CLOSE 

FOJ 


DATA1,PRINT,PUTIN,TYPFN 


« 




TFRMI NATION OF JOB 


* 
AREAl 


OEFIMITION OF CONSTANTS 


DC 


80CL10' ' INPUT AREA FOR DATAl 


AREA2 


DC 


fi2C' • INPUT AREA FOR CONTROL INFORMATION 


AREA3 
* 

WORKl 


DC 


80C« • OUTPUT AREA PRINTER KEYBOARD 


DC 


80C« ' WORK AREA FOR DATAl 


W0RK2 
POINT 


DC 


80C' • '-'ORK AREA FOR UPDATE DATAl 


FOU 


10 POINTER FOR APFA2 


LTORG 




^ 


END 


BEGIN 
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Example 16 - Sequential Disk, Printer, and 
Printer-Keyboard Input/Output Files • - 
Program Includes ATENT Routine 

An inquiry Monitor is required for this 
example, which demonstrates the use of the 
ATENT routine. The program reads a sequen- 
tial disk file and is modified, by control 
information supplied in the ATENT rou- 
tine. Valid control information is: 



/* - Close files and terminate job. 
EOJ - Control is transferred to EOJ 

with the next CLOSE. 
TYPE - All records are typed on the 

printer-keyboard . 
NOTYPE - Typing of records is suppressed. 
PRINT - All records are printed. 
NOPRINT - Printing of records is suppressed, 

Incorrect control information is 
ignored. More than one option can be given 
at a time, if separated by a comma, e.g., 
NOPRINT, EOJ. 

In the mainline program, a sequential 
disk file is read. On end-of-file, the 
disk file is closed (17) , reopened (1) , and 
read again. Print, type, EOJ, and update 
options are activated and deactivated by 
the ATENT routine. SWCHI controls typing 
on the printer-keyboard (2) , SWCH2 provides 
for printing of records (3) , and SWCHO and 



SWCH3 control updating of records (4) . 
SWCH4 determines (17) whether or not the 
job is to be terminated if the next end-of- 
file condition for DATAl (disk file) is 
encountered. After the ATENT routine has 
been entered, control information is 
entered on the printer-keyboard (5) . 



Checking and modifying is performed 
according to this control information (6) - 
(14) . If, for instance, the check for EOJ 
(6) is true, SWCH4 (17) is set to branch 
(7), i.e., all files are closed and the job 
is terminated (18) the next time an end-of- 
file condition is detected. Likewise, 
tests for typing (8) , suppression of typing 
(9) , printing (10) , and suppression of 
printing (11) are performed. If updating 
is required (12) , i.e., if an equal sign is 
typed in, the update information is entered 
immediately after the equal sign and moved 
to the work area (13) . SWCHO is modified 
to change (14) SWCH3 to NOP. The next time 
the file is reopened, the whole file will 
be updated. A register (POINT) is used to 
check (15) whether all options have been 
processed. If this is the case, the RETRN 
macro instruction (16) is executed. If /* 
is typed in on the printer-keyboard, all 
files are closed (18) and the job is 
terminated. 

This example requires 4230 bytes of main 
storage. 
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Glossary 



Access Method; Any of the data management 
techniques available for transferring data 
between main storage and an input/output 
device. 



Block; 

1 . To group records for the purpose of 
conserving storage space or increasing 
the efficiency of access or processing. 

2. A physical record on tape or disk. 



Access Time; (1) The time interval between 
the instant at which data is called for 
from a storage device and the instant 
delivery is completed, i.e., the read time. 
(2) The time interval between the instant 
at which data is requested to be stored and 
the instant at which storage is completed, 
i.e., the write time. 

Allocate; To assign storage locations or 
areas of storage for specific routines, 
portions of routines, constants, data, etc. 

Alternate Drive; When two drives are given 
for one multi-volume file, the first drive 
is the primary drive and the second drive 
is the alternate drive. Tape reels or disk 
packs are mounted such that the first is on 
the primary drive, the second on the alter- 
nate drive, the third on the primary drive, 
etc. 

Alternate Track Area; An area of three 
cylinders on the disk pack in which tracks 
may be used as alternatives to defective 
tracks occurring elsewhere on the disk 
pack. 

Assemble; To prepare a machine-language 
program from a symbolic-language program by 
substituting absolute operation codes for 
symbolic operation codes and absolute or 
relocatable addresses for symbolic address- 
es. 

Assembler; A program that prepares an 
object language program by producing abso- 
lute or relocatable machine code from a 
machine-oriented source program of state- 
ments containing symbolic operation codes 
and symbolic operands. 

Assembler Language; A symbolic language 
(used to write source programs) which ena- 
bles the programmer to use all machine 
functions as if he were coding in machine 
language. 

b; The symbol for a blank space. 

Binary Synchronous Communications Adapter 
(BSCA) ; A feature that may be built into 
the Central Processing Unit of a Submodel 
2, 4, or 5. It permits the system to func- 
tion on a switched or leased communications 
network as a processor terminal. 



Blocking Factor: The number of logical 
records in a physical record. 

Buffer (Program Input/Output) ; A portion 
of main storage into which data is read, or 
from which it is written. 

Checkpoint Records; Records that contain 
the status of the job and the system at the 
time the records are written by the check- 
point routine. These records provide the 
necessary information for restarting a job 
without having to return to the beginning 
of the job. 

Communication Region: An area of the Moni- 
tor. Contains date, storage-capacity 
specification, UPSI byte, user areas 1 and 
2, program-name area, and various control 
bits used by the system. Provides for 
communication within a program and between 
programs. 

Data File; A collection of related records 
treated as a unit and consisting of data in 
one of several prescribed arrangements and 
described by control information to which 
the system has access. 

Data Management; See File Management. 

Data Set; See Data File. 

Deblock; To change the format of a file so 
that a physical record comprises only one 
logical record. 

Direct Access: Retrieval or storage of 
data by a reference to its location on a 
volume, rather than relative to the pre- 
viously retrieved or stored data. 

Disk Label; A physical identification 
record on disk which identifies the volume 
or file. 

EOF Record; End-of-file record which ter- 
minates a logical set of input records (/*b 
in columns 1 through 3) . 

Extent; Area of a disk file specified by 
an upper limit and a lower limit. 

File Label; Label containing information 
applicable to a given data file or portion 
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of a data file stored on a particular vol- 
ume. 

File Management; A general term that col- 
lectively describes those functions of the 
control program that provide access to 
files, enforce data storage conventions, 
and regulate the use of input/output devi- 
ces. 

File Organization; Refers to the method of 
arranging data records on an external stor- 
age device. 

File Processing; The method of retrieving 
records from, adding records to, or updat- 
ing records in a file. 

File Reorganization; A terra used to des- 
cribe the process of writing a new file 
from an indexed- sequential file, purging 
records that are tagged for deletion, and 
placing records in the overflow area into 
their sequential positions in the prime 
data area. 

Fixed-Length Record; A record having the 
same length as all other records with which 
it is logically or physically associated. 

Index (Data Management) ; 

1. A table in the catalog structure used 
to locate files. 

2. A table used to locate the records of 
an indexed-sequential file. 

Inquiry Programs ; Inquiry programs are 
initiated by pressing the Request key on 
the printer-keyboard and typing in the name 
of the program. The current contents of 
main storage (excluding the Monitor) are 
rolled out on the system disk pack; then 
the inquiry program is loaded and proc- 
essed; after execution is completed, the 
old status is restored and execution of the 
mainline program resumes. Inquiry programs 
can be executed only under control of a 
Monitor that supports inquiry facilities. 

Inter-Block Gap; A blank space on magnetic 
tape that separates physical records. 

I/O Area; An area (portion) of main stor- 
age into which data is read or from which 
data is written. 

Logical File; Used to describe a file that 
shares a reel of tape or a disk with other 
files. 

Logical Record; A record identified from 
the standpoint of its content, function, 
and use rather than its physical attri- 
butes. It is meaningful with respect to 
the information it contains. 



Logical Unit Table; A part of the Monitor. 
It has logical unit blocks, each of which 
refers to one specific symbolic I/O 
address. These symbolic addresses are 
related to actual I/O device addresses by 
means of ASSGN control statements. 

Macro Definition; A set of statements in 
the macro library used by the DPS/TPS 
Assembler program to expand a macro 
instruction specified in the source program 
into a series of machine instructions. 

Macro Instruction; A macro instruction is 
a statement that is used in a source pro- 
gram and replaced by a specific sequence of 
machine instructions in the associated 
object program. 

Mnemonic; A contraction or abbreviation 
whose characters are suggestive of the full 
expression. 

Monitor; The main control program in DPS. 
Resident in main storage throughout a sys- 
tem run. The IBM distribution package 
contains the standard Monitor and several 
Monitor macro definitions. Instead of 
employing the standard Monitor, you can 
tailor a Monitor according to the system 
requirements by specifying certain macro 
instructions,, and generate it by means of 
an assembly run. 

Monitor 'I/O Area. An area of main storage 
within the Monitor used as a buffer by the 
Fetch routine when loading problem pro- 
grams. 

Object Program; The output of a single 
execution of an assembler or compiler. 

Operand; The representation of a value 
that must be supplied to define a selective 
function to the program. 

Overlay; To place a phase or subphase into 
main storage locations occupied by another 
phase or subphase that has already been 
processed. 

Phase; (1) A portion of a program executed 

as one main-storage load. (2) The smallest 

addressable unit in the core-image library 
of a tape or disk-resident system. 

Physical Disk and Tape I/O Routines; A set 
of routines that is contained in the Moni- 
tor program and performs tape and disk I/O 
operations for the Monitor and problem 
programs , 



Physical Unit Block (PUB) ; 
Physical Unit Table. 



An entry in the 



Logical Unit Block (LUB) 
Logical Unit Table. 



An entry in the 



Physical Unit Table; A feature of the 
Monitor program. It has up to ten physical 
unit blocks, each of which contains a phy- 



Glossary •IBS 



sical device address. Pointers to these 
entries are inserted into the logical unit 
table by means of ASSGN control statements. 

Physical Record; A record identified from 
the standpoint of the manner or form in 
which it is stored and retrieved; that is, 
one that is meaningful with respect to 
access. (Contrasted with Logical Record.) 

Problem Program; A general term for any 
program that is not a control program. 

Read/Compute, Write/Compute Overlap Fea- 
ture: A feature of the IBM System/360 
Model 20, Submodel 5 that permits data 
transfer from or to I/O units to be over- 
lapped with processing, 

Reblock; To change the format of a file so 
that a different number of logical records 
comprises one physical record. See Block. 

Record; A general term for any unit of 
data that is distinct from all others when 
considered in a particular context. 

Restart; To re-establish the status of a 
job using the information recorded at a 
checkpoint. 

RWC feature; See Read/Compute, 
Write/Compute Overlap Feature. 

Seek: To position the access mechanism of 
a direct-access device at a specified loca- 
tion. 

Source Program; A series of statements in 
the symbolic language of an assembler or 
compiler, which constitutes the entire 
input to a single execution of the assem- 
bler or compiler. 

Stacked Job Processing; A technique that 
permits multiple job definitions to be 
grouped (stacked) for presentation to the 
system, which automatically recognizes the 
jobs, one after the other. 

Statement; A meaningful expression or 
generalized instruction in a source lan- 
guage. 

Subphase: A separately assembled routine 
within a phase of a problem program. It 
may be overlaid after execution. The meth- 
od of building a program from subphases is 
used when a large problem program is to be 
executed. 



Symbolic I/O Address: A symbol used in 
IBM-supplied and user-written programs to 
refer to an I/O device (e.g., SYSRES, 
SYSIPT, SYS005) . This address is related 
to an actual address by means of the logi- 
cal unit table. 



SYSIPT; See System Input Unit. 



System Disk Pack: The disk pack on which 
your disk-resident system is stored. 

System Input Unit; A device specified as a 
source of an input job stream. 

System Tape; The reel of magnetic tape on 
which the tape-resident system is located. 

Tape Labels: Special records at the begin- 
ning and end of tape files. There are 
volume, header, and trailer labels. They 
are used to identify the reel of tape and 
the file they precede. They also contain 
certain housekeeping information. 

Tapemark; A special symbol that can be 
read from, or written on, magnetic tape. 
Used to distinguish the end of a file or 
file segment, and to segregate the labels 
from data. 

Throughput; A measure of system efficien- 
cy: the rate at which work can be handled 
by a computing system. 

Unblock; To change the format of a file so 
that a physical record comprises only one 
logical record. See Block. 

Variable-Length Records; Logical records 
in a file in which the number of bytes in 
each record is not a fixed value, but may 
vary within prescribed limits. 

Volume; That portion of a single unit of 
storage media that- is accessible to a sin- 
gle read/write mechanism. For example, a 
reel of magnetic tape for a 2415 magnetic 
tape drive, or one 1316 Disk Pack for a 
2311 Disk Storage Drive. 

Volume Label; A label which uniquely iden- 
tifies a volume. 

Volume Table of Contents (VTOC) ; A table 
associated with a direct-access volume, 
which describes each data set on the vol- 
ume. 
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ADAREX 75 

ADD (IOROUT=specification) 78 

Adding of records 91 

instructions for 82 

Addition of records 

(indexed-sequential files) 87 

ADDRTR (IOROUT=specification) 78 

ADRTEST 70 

Alternate tape drive 53 

ALTREX 75 

ALTTAPE 53 

Assembly procedure 18 

ATENT macro instruction 105 

ATENT routine 105 

BACK (READ=specification) 56 

Backspace file (BSF) 60 

Backspace record (BSR) 60,61 

Base registers, assignment of 99 

Begin definition (DTFBG) 21 

BINARY 31 

BLKSIZE 

card 31 

direct-access disk 70 

printer U4 

printer-keyboard 48 

sequential disk 65 

tape 53 

Block count, effect of CNTRL on ........ 62 

Blocked records 8,59,61,92,94 

Block size 

card 31 

disk 65,70,78 

printer . . 44 

printer-keyboard 48 

tape , .... 53 

BOF (starting reference for sequential 

processing) , . . . . 84 

BSF (backspace file) 60 

BSR (backspace record) , . 60,61 

Card files, instructions for 31 

Card-print area 32 

Card printing 36 

Chaining records , . . . . 8 8 

Checkpoint records 54 

CKPTREC 54 

CLOSE macro instruction 2 3 

Close routines, mainline program ...... 103 

Closing card files ».... 29 

Closing disk files 30 

Closing printer files „.... 29 

Closing printer- keyboard files .......... 29 

Closing tape files 2 9 

CMBND (TyPEFLE=specif ication) 35 

CNTRL macro instruction 

card ».... 37 

direct-access disk 73 

printer 45 

printer-keyboard 51 

sequential disk , 69 

tape 60 



CNVRT macro instruction 73 

Coding restrictions 97 

Combined files 8,36 

COMRG macro instruction 95 

COMROUT 65 

CONTROL 

card 31 

direct-access disk 70 

printer 44 

printer-keyboard 48 

sequential disk 65 

tape 54 

Control statements 106 

Count area 67 

CRDPR macro instruction 36 

CRDPRA 31 

CRDPRLn 31 

CRP20 (DEVICE=specif ication) 32 

Cylinder index 86 

Cylinder number (CC) 74 

Cylinder overflow area 76,87 

CYLOFL 76 

CYNDEX 76 

Data files 8 

Definition statements 18 

summary of 109 

DERREX 7 6 

Detail entries 19 

DEVADDR 54 

DEVICE 

card 32 

disk 65,70,76 

printer 44 

Device error recovery 107 

Diagnostic messages 18 

Direct-acces files 

instructions for 70 

organization of 16 

processing of 17 

Disk end-of-volume condition 29 

Disk error routines 107 

Disk files 

direct-access 70 

indexed-sequential 75 

sequential 65 

Disk label control statements 106 

DISK11F (DEVICE=specif ication) ... 65,70,76 

DPCRCD 76 

DSKXTNT 65,71,77 

DTAREX 65,77 

DTFBG statement 21 

DTFDA statement 70 

DTFEN Statement 22 

DTFIS Statement 75 

DTFLC statement 4 9 

DTFMT Statement 53 

DTFPK Statement 4 8 

DTFSD statement 65 

DTFSR statement 31,44 

Duplicate records 76,77 

DUPREX 77 
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End file load mode (ENDFL) 82 

ENDFL macro instruction 82 

End definition (DTFEN) 22 

End-of -f ile condition 28 

End-of-file processing 28 

End-of-volume condition 

disk files 29 

tape files 28 

End-of -volume processing 28 

End set limit (ESETL) . . .■ 8 5 

Enter overlap mode (EOM) 39 

Entries 

detail 19 

header 19 

EOFADDR 

card 32 

indexed-sequential disk 77 

printer-keyboard 48 

sequential disk 66 

tape 5U 

EOF cards, stacked- job processing 32 

EOJ macro instruction 96 

EOM macro instruction 39 

Erase gap (ERG) 6 

ERG 60 

ERRBYTE 71 

ERRINF 77 

ERRIO 55,66 

ERROPT 55,66 

Error block 66 

Error information (ERRINF) 77 

Error option (ERROPT) 55,6 6 

Error recovery routines 107 

ESETL macro instruction 8 5 

Extension (indexed-sequential files) ... 80 

Extent control statement 106 

Extents, number of 65,70,76 

FEOV macro instruction 63 

FETCH macro instruction 95 

FILABL 55 

File definition statements 18 

format of 19 

summary of 109 

File organization 

direct-access files 16 

indexed-sequential files 16,86 

sequential files 15 

File processing 

direct-access files 17 

indexed-sequential files 17,90 

sequential files 17 

File protection 102 

Files 

closing 29 

combined 8 

opening 24 

reopening 23 

simple 8 

FIXBLK (RECFORM=specification) ... 57,6 8,7 9 

Fixed-length records 8 

FIXUNB (RECFOR]yi=specification) ... 57,6 8,7 9 

Force-end-of -volume (FEOV) 63 

Format-F records 8 

Format-U records 9 

Format-V records 8 



Form skipping 

printer 46 

printer-keyboard 52 

Form spacing 

printer 45 

printer-keyboard 51 

FORWARD (READ=specif ication) 56 

Forward space file (FSF) 60 

Forward space record (FSR) 61 

FSF 60 

FSR 61 

GET macro instruction 

card file 36 

disk file 69,84 

dummy 41 

tape file 59 

GKEY (starting reference for 

sequential processing) 84 

Halt and restart information 41 

Header entries 19 

Head number (HH) 74 

Identifier (ID) 74 

IGNORE (ERROPT=specif ication) 55 

Imperative macro instructions 20 

card files 35 

closing files 23 

direct-access files 72 

indexed-sequential files 80 

opening files 23 

printer files 45 

printer-keyboard files 50 

sequential disk files 58 

summary of 122 

tape files 58 

INAREA 33 

INBLKSZ 33 

Independent overflow area 89 

Indexed-sequential files 

instruction,s for 75 

organization of 16,86 

processing of 17,90 

Indexes 

cylinder 86 

track 86 

Index register 100 

Initializing files 24 

Inquiry Open routine 103 

Inquiry program 101 

error in 102 

opening disk files in 102 

Inquiry record 101 

Inserting records 91,92 

lOAREA 4 8 

lOAREAL 77 

lOAREAR 77 

lOAREAS 7 8 

I0AREA1 33,44,55,67,71 

I0AREA2 33,5 6,67 

IOCS 

macro instructions 18 

registers required by 99 

lOREG 56,67,78 
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lOROUT 7 8 

I/O areas 11 

I/O registers 99 

IQIPT macro instruction 96 

ISFMS 75 

Key 81 

KEY 

retrieving a record 83 

starting reference for sequential 

processing 84 

writing a record 83 

KEYARG 7 8 

KEYLEN 78 

KEYLOC 78 

LABADDR 56 

Label checking routine 56 

Label return (LBRET) 63 

Labels 

specifying type of 55 

handling by IOCS 24,27,29 

Language compatibility 108 

LBRET macro instruction 63 

LCTABLE 4 9 

Leave overlap mode (LOM) 3 9 

Line- counter , ... 50 

Line-counter table 49 

Line skipping 

printer 46 

printer-keyboard 52 

Line spacing 

printer 45 

printer-keyboard 51 

LOAD (IOROUT=specif ication) 7 8 

Loading an indexed- sequential file 9 

instructions for 80 

Loading a program phase 97 

Logical records 8 

LOM macro instruction 39 

Machine requirements 6 

Macro definitions, user-written 99 

Macro instructions 

coding conventions for 18 

declarative 5 

imperative 20 

IOCS 18 

monitor 95 

summary of 126 

Mainline program 

Open and Close routines 102 

MAINPRG 21 

MFCM1 (DEVICE=specif ication) 32 

MFCM2 {DEVICE=specification) 32 

Monitor I/O areas 102 

Multi-file processing 90 

MVCOM macro instruction 9 5 

NEWKEY 

inserting a record 82 

loading a record 81 

Non-overlap mode 

processing in 35,38,39 

programming considerations for 
combined files 36 



use of CNTRL macro instruction in .... 37 

work area assignment 13 

Non-standard labels 

tape input file 25,53,55 

tape output file 26,29 

No record found 79 

NORWD {REWIND=specif ication) 57 

NRECDS 78 

NSTD (FILABL=specif ication) 55 

Opening card files 24 

Opening disk files - 26 

Opening files, instructions for 23 

Opening multi-file tape volumes 24 

Opening printer files 24 

Opening printer-keyboard files 24 

Opening tape files 24 

OPEN macro instruction 23 

Open routines 

inquiry program 103 

mainline program 102 

Organizing files 

direct-access 16 

indexed-sequential 16,86 

sequential 15 

OUAREA 33 

OUBLKSZ 33 

Output areas 11 

Overflow areas 87 

Overflow area options 89 

Overflow records 87 

OVERLAP 33 

Overlap mode 

programming considerations for 

combined files 36 

use of CNTRL macro instruction in .... 37 

work area assignment 13 

Overlapping 11 

Overlay programming 97 

OVLAY 22 

Pack number (M) 74 

PFORMTn 33 

PFXIT 34 

Positioning of tape files 25,53 

Prime data area 86 

Print-area format 45 

PRINTER (DEVICE=specif ication) 44 

Printer files 

instructions for processing 44 

Printer-keyboard files 

instructions for processing 48 

PRINTLF (DEVICE=specif ication) 44 

PRINTOV 4 5,49 

PRINTUF (DEVICE=specif ication) 44 

Processing files 

direct-access 17 

indexed-sequential 17,90 

sequential 17 

Programming considerations 97 

Programming restrictions 97 

PRTOV macro instruction 

printer 46 

printer-keyboard 52 

PUNCH20 (DEVICE=specif ication) 32 

PUNCH42 {DEVICE=specif ication) 32 
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PUT macro instruction 

card files 35 

disk files 68,85 

printer files 44 

printer-keyboard files 50 

tape files 59 

RANDOM 

(TYPEFLE=specif ication) 79 

(UPDATE=specif ication) 79 

Random processing 93 

Random retrieval 

instructions for 82 

Random updating 

instructions for 82 

RANSEQ 

(TYPEFLE=specif ication) 7 9 

{UPDATE=specif ication) 80 

READ detail entry 56 

READ macro instruction 

direct-access 72 

printer-keyboard 50 

random retrieval and updating 8 2 

Read backward considerations 25 

Read format checking 34 

READID 71 

READO 1 (DEVICE=specif ication) 32 

RECFORM 56,68,79 

Record length checking 8,10 

Record reference 73, 74 

Record retrieval 5 

Records 

blocking of 7 

format of 7 

logical 7 

Record storage 5 

Record updating 5 

RECSIZE 49,57,68,79 

Registers 

base 9 9 

I/O 99 

, required by IOCS 99 

usage of 100 

Release (processing of a block) 62 

RELSE macro instruction 6 2 

Reopening closed files 23 

Restrictions , programming 97 

Retrieving records 

randomly 82,93 

sequentially 83, 94 

RETRN macro instruction 10 5 

RETRVE (IOROUT=specif ication) 78 

REW (rewind tape) 61 

REWIND ,. 57 

Rewind and unload tape (RUN) 61 

Rewind tape (REW) . 61 

RFORMTn 34 

RFXIT 34 

RTRVEX 7 9 

RUN (rewind and unload tape) 61 

Sector address 74 

Sector count 67 

SEEKADR 71 

SEEK 

CNTRL for direct-access files 73 

CNTRL for sequential disk files 6 9 

Seek field 73 



Sense information 71 

SEQNCE 34 

SEQNTL 

(TYPEFLE=specif ication) 79 

(UPDATE=specif ication) 79 

Sequence checking 34 

Sequence link field 

chaining by 88 

Sequential disk files 

instructions for processing 55 

Sequential files 

organization of 15 

processing of 17 

Sequential processing (ISFMS) 94 

Sequential retrieval (ISFMS) 

instructions for 83 

Sequential updating (ISFMS) 

instructions for 83 

SEQXIT 35 

Set file load mode (SETFL) 81 

SETFL macro instruction 81 

SETL macro instruction 84 

Set limits (SETL) 84 

Simple files 8 

SK (skipping forms) 46,52 

SKIP (ERROPT=specif ication) 55 

Skipping 

printer 46 

printer-keyboard 52 

SP (spacing forms) 4 5,51 

Spacing 

printer 45 

printer-keyboard 51 

SQCHEX 7 9 

SS (stacker selection) 37,38 

Stacker selection 

2520 37 

2560 38 

Standard labels 

tape input files 24,53,55 

tape output files 25,29 

Status byte 66 

STD (FILABL=specif ication) 55 

Storage areas 

for indexed-sequential files 89 

I/O 11 

work areas 12 

SYSIPT 

(ALTTAPE=specif ication) 53 

(DEVADDR=specif ication) 54 

SYSOPT 

(ALTTAPE=specif ication) . 53 

(DEVADDR=specif ication) 54 

SYSnnn 

(ALTTAPE=specif ication) 53 

(DEVADDR=specif ication) 54 

Tape control operations 50 

Tape end-of-volume condition 2 8 

Tape error recovery 107 

Tape files 

instructions for processing 53 

non-standard-labeled 25,29,53,55 

standard labeled 24,29,53,55 

unlabeled 25,29,53,55 

Tape label control statement 106 

Terminating files 27 

TPMARK 57 
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Track index 86 

updating of 8 8 

Track reference 74 

Truncate (write short block) 62 

TRUNG macro instruction 62 

TYPEFLE 

card 35 

disk 68,71,79 

printer 4 5 

printer-keyboard 49 

tape 57 

Unblocked records 8,59,61,91,94 

UNDEF (RECFOR]yi=specification) 57 

Undefined-format records 9 

Unlabeled tape input file 25,53,55 

Unlabeled tape output file 25,29 

UNLOAD (REWIND=specification) 57 

UPDATE 68,7 9 

Updating indexed-sequential records 

randomly 82 

sequentially 83 

Updating of the track index 88 

VARBLD detail entry 57 

VARBLD register 57,100 

VARBLK (RECFORM=specification) 57 

Variable-length records 8 

VARUNB (RECFORiyi=specification) 57 

VERIFY 68,71,80 

Volume control statement 106 



WAITC macro instruction 40 

WAITF macro instruction 
adding records to an 

indexed-sequential file 82 

direct-access file 72 

printer-keyboard file 51 

random retrieval and updating 83 

WLRERR 58,55 

WORKA 

card 35 

disk 68,80 

printer 45 

printer-keyboard 49 

tape 58 

Work areas 12 

WORKL 80 

WORKR 8 

WORKS 8 

WRITEID 71 

WRITE macro instruction 

adding records to indexed-sequential 

files , 82 

direct-access files 72 

loading indexed-sequential files 81 

random retrieval and updating 83 

Write tapemark (WTM) 61 

Wrong-length records 55,58 

WTM (write tapemark) 61 

XTENT control Statement 26,86 
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